
RACCOLTA DI GIOCHI E DI UTILITIES PER 

C16 



Suonare è facile . 


MUSIC MASTER trasforma il tuo CJ6 in 
un fantastico strumento musicale. 

Anzi, ancora di più: puoi scegliere tra il 
dolce e melanconico flauto, o il più 
sfrontato e moderno synt o ancora il 
simpatico ed essenziale xilofono. 

Carica il programma SINTETIZZATORE e 
sperimenta, utilizzando la apposita tastiera, 
le grandi possibilità del tuo piccolo, grande 
computer. 

Le pagine seguenti ti informeranno su come 


ciò sia possibile, ti ricorderanno i principi 
fondamentali della musica. 

Qualunque sia la tua preparazione in 
questa materia, sarai in grado di leggere e 
riprodurre col tuo C16 qualsiasi brano 
musicale. 

Grazie al programma MUSIC EDITOR 
potrai infatti introdurre nella memoria del 
computer la musica composta da te o 
ricavata da spartiti, per poi riascoltarla a 
tuo piacimento. 



in edicola 


JACKSON 
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© TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI E DEI 
PROGRAMMI PUBBLICATI SONO 
RISERVATI 


Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C 16 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata alVinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scópo di arricchire sempre di più la vostra 
raccolta di programmi. 
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ROLLER KONG 

Chi non ha mai sentito parlare di King Kong, il mitico 
enorme gorilla che, invaghitosi di una ragazza, la rapisce e 
impedisce a chiunque di avvicinarsi? Roller Kong, il 
supergame presentato in questo numero, ricalca la vicenda 
di King Kong, con però alcune differenze. 
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Roller Kong, il gorilla, salito 
sul più alto dei palazzi, scaglia 
addosso al nostro eroe delle 
palle di fuoco e dei barili che 
rotolano giù dalle scale. L’eroe, 
mosso da voi, corre di qua e di 
là, salta sale sulle scale e, se 
non viene colpito più di tre 
volte, raggiunge la ragazza 


prigioniera del gorilla. 


Caricamento 

Inserire il nastro nel regi- 
stratore, battere LOAD e 
premere il tasto [RETURN]. 
Il programma verrà carica- 


to automaticamente. Il cari- 
camento richiede circa 4 mi- 
nuti. Roller Kong viene cari- 
cato tramite una serie abba- 
stanza complessa di pro- 
grammi caricatori per assi- 
curarne l’incopiabilità. Il 
“dump” dei vari programmi 
caricatori (Inizio, Loader, 
Sp Data) e del programma 
oggetto (RK.Obj) viene for- 
nito per i più esperti. Il ri- 
mo programma caricatore è 
particolarmente difficile da 
fermare, perché attiva im- 
mediatamente il Loader, 
cancellandosi. 

N.B. Appena terminato il 
caricamento di ROLLER 
KONG, fermare manual- 
mente il registratore es- 
sendo lo stop automatico 
disabilitato. 

Inizio del gioco 

La prima schermata per- 
mette di scegliere fra jo- 
ystick e tastiera premendo 
il tasto [fi]. Una freccina in- 
dicherà il tipo di scelta effet- 
tuata. Premere poi la barra 
degli spazi per iniziare. 

Il primo quadro del gioco ci 
presenta il mostro Roller 
Kong che, al quarto piano 
della costruzione, afferra 
dei barili e delle palle di fuo- 
co e li scaglia in giù per cer- 
care di colpire il giovanotto 
che corre instancabile di 
qua e di là per evitare i colpi 
ed accumulare punti. 

Comandi 

Roller Kong può essere con- 
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trollato sia con il joystick in 
porta 1, che con la tastiera. 
Con il joystick il pulsante 
serve per far saltare l’omi- 
no. Gli altri movimenti (si- 
nistra, destra, alto, basso) 
servono per farlo muovere 
verso sinistra e verso de- 
stra, per fargli salire e scen- 
dere le scale. Gli stessi mo- 
vimenti si possono ottenere 
con la tastiera. In questo ca- 
so, il salto si ottiene pre- 
mendo la barra degli spazi, 
la salita e la discesa dalle 
scale con i tasti [Q] e [Z], gli 
spostamenti a sinistra e a 
destra con i tasti [I] e [P]. 


Punteggio 

Mentre si sta raggiungendo 
la ragazza da salvare, si pos- 
sono accumulare punti, co- 


me qui sotto indicato: 

raccogliere fiori 5 

saltare sul barile 20 

saltare sui mostri 50 

distruggere un barile .... 50 

distruggere un 

mostro 100 

raggiungere la ragazza 

(primo schermo) 1000 

raggiungere la ragazza 
(secondo schermo) .... 2000 


Strategia di gioco 

Il gioco è composto da due 
quadri. Un primo quadro in 
cui si devono salire delle 
scale per raggiungere l’o- 
biettivo, e un secondo scher- 
mo in cui invece si devono 
prendere degli ascensori e- 
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stremamente pericolosi per 
salire in alto. 

La prima parte del gioco, an- 
che se presenta delle diffi- 
coltà, è però relativamente 
facile. I movimenti del goril- 
la sono abbastanza lenti e 
prevedibili, per cui, con un 
po’ di attenzione si riesce ad 
evitare i barili che rotolano 


e si possono schivare le pal- 
le infuocate. Un nemico può 
essere il tempo, in quanto il 
ragno in agguato non lonta- 
no dalla ragazza, si avvicina 
pian piano ad essa, fino a di- 
vorarla. Roller Kong è tal- 
mente indaffarato a colpire 
il giocatore, che non pensa 
neppure a proteggere la ra- 





gazza sua prigioniera con- 
tro gli attacchi del ragno! 
Tocca quindi a voi fare tutto 
il lavoro. 

Il gorilla scaglia barili e pal- 
le infuocate preferibilmente 
verso destra. Le zone più pe- 
ricolose sono quindi quelle 
sulla destra della costruzio- 
ne. Raccogliete i fiori lungo 
il percorso se volete accu- 
mulare punti, ma attenti ai 
pericoli. Fate buon uso della 
capacità di saltare del no- 
stro eroe: vi farà guadagna- 
re dei punti extra molto ra- 
pidamente. Anche l’ascia, 
che potrete afferrare con un 
salto al secondo piano, vi 
permetterà di aumentare il 
vostro punteggio. Potrete di- 
struggere barili e palle di 
fuoco menando colpi all’im- 
pazzata. Tenete però presen- 
te che, quando avete l’ascia 
in mano, non potete salire le 
scale. 

Quando finalmente avrete 
raggiunto la ragazza accan- 
to al gorilla, vi troverete a 
dover affrontare ancora al- 
tre prove. Ed è qui che vera- 
mente si vedrà quanto val- 
gono i vostri riflessi. Se ave- 
te scatto, tempismo e la de- 


cisione necessaria riuscire- 
te a raggiungere la vetta e a 
liberare definitivamente la 
ragazza. Ma se i vostri ri- 
flessi sono un po’ troppo 
lenti, finirete per perdere 
tutte le vite che ancora vi 
restano, senza raggiungere 
lo scopo. 

In questo secondo quadro, 
occorre stare molto attenti 
ai mostriciattoli che vengo- 
no generati e scagliati in 
basso dal gorilla. Sono mol- 
to rapidi e pericolosi: basta 
un contatto anche superfi- 
ciale per rimanerne colpiti e 
passare a miglior vita. Gli 
ascensori poi non sono me- 
no pericolosi. Si vede che 
all’epoca in cui si svolge il 
gioco non c’erano ancora 
dei sistemi per frenare la 
corsa all’awicinarsi del pia- 
no. Fatto sta che, se non si è 
più che attenti a saltare via 
per tempo, si prendono delle 
solenni botte in testa con fu- 
neste conseguenze. Una spe- 
cie di lamento funebre viene 
emesso dal computer ogni 
volta che perdete una delle 
vostre preziose tre vite. 
Tutto sommato, il gioco vi 
potrà intrattenere per un 


po’ di tempo e mettere alla 
prova i vostri riflessi e le 
vostre abilità di movimento. 
Consola vedere che la vita 
reale non è invece poi così 
complicata. Meno male che i 
King Kong sono solo frutto 
di fantasia! 

Nota per chi usa 
uno schermo in 
bianco e nero 

Roller Kong è stato studiato 
soprattutto per schermi a 
colori. Per questo motivo, 
certe figure possono appari- 
re poco contrastate quando 
si impiega uno schermo in 
bianco e nero. In particolare 
la figura della ragazza, in al- 
to accanto al gorilla, e i fiori 
da raccogliere sono poco 
evidenti. Occorre farci un 
po’ l’abitudine, poi si ve- 
dranno bene anche se poco 
segnati. Nel secondo quadro 
invece solo la figura della 
ragazza è debole in bianco e 
nero. Le palle di fuoco pos- 
sono a volte, per brevi mo- 
menti, apparire piuttosto 
inconsistenti, ma in com- 
plesso il gioco è bello chiaro 
anche in bianco e nero. 
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DAMA 


Un bel gioco con una lunga 
tradizione, la dama appas- 
siona ancora grandi e meno 
grandi. Abbastanza facile da 
poter essere appreso anche 
da un bambino, abbastanza 
complesso da stimolare l’in- 
teresse di giocatori esperti. 
Per poter giocare anche da 
soli, contro il computer, ec- 
covi un programma interes- 
sante, con buona grafica e 
buona tecnica di gioco. 
Anche se il programma non 
è in linguaggio macchina, 
non va sottovalutato. Una 
macchina ha sull’essere 
umano il vantaggio di non 
distrarsi, di non commette- 
re sciocchezze, di saper im- 
postare una strategia ad un 
livello non banale. Un gioca- 
tore medio potrà certamen- 
te trovare in questo pro- 
gramma un antagonista in- 
telligente che potrà anche 
dargli del filo da torcere. 
Anche se riteniamo che tut- 
ti conoscano le regole di 
questo popolare gioco, è giu- 
sto riportarne per sommi 
capi un riassunto. La dama 
si gioca su una scacchiera di 
64 caselle alternate, una 
bianca e una nera, ove si di- 
spongono 24 pedine: 12 ne- 
re per un giocatore e 12 
bianche per l’avversario. 
Ciascun giocatore dispone le 
proprie pedine sulle prime 
tre file del proprio lato della 
12 



1000 : 

1010 REM TRASFERIMENTO SET CARATTERI 
1020 : 

1 0 30 P0KE56 ,60 : POKE5 2 , 60 : POKE55 , 0 : P0KE5 1 

,0 

1040 T-0 : FORI-1 000T01 030 : READA 
1 050 POKEI , A : T-T + A: NEXT 

1 060 IFT03288THENPRINT" {CLR}ERRORE NEI 
DATA! " : END 

1070 SYS 1000: POKE 65298,0: POKE 65299,60 
1 090 : 

1 1 00 REM DATA L/M 
1110 : . 

1 1 20 DATAI 60 ,0 , 185,0,208,153,0,60 
1 1 30 DATAI 85,0,209,153,0,61, 1 85 ,0 
1140 DAT A2 1 0 ,153,0,62,185,0,211 ,153 
1150 DATAO, 63, 24, 1 36, 208, 228, 96 
1190 : 

1200 REM DATA NUOVI CARATTERI 
1210 : 

1220 DATA255, 255, 255, 255, 255, 255, 255, 255 
1 230 DATAI ,14, 48, 64, 9t>,t>8,71 ,64 
1240 DATA255,0 ,24 ,36,24 ,0,0,255 
1250 DATAI 28, 112, 12, 2, 6, 26, 226, 2 



1 260 DATA64 ,64 ,96 ,24 ,6 , 1 ,0,0 
1270 DATAO, 0,0, 0,0, 255, 0,0 
1280 DATA2,2,6,24,96,128,0,0 
1290 DATAI , 15, 63,1 ?7, 9 5, 10 3,120 f V27 
1 30 0 DAT A 25 5, 255, 2 35, 2 1 9, 231 ,255,255,0 
1310 DATAI 28,2 40,252,25 4 ,250,230,30,25 4 
1 320 DATAI 27 , 1 27 , 1 27 , 31 ,7,1 ,0,0 
1 330 DATA255 ,255 ,255 ,255 ,255 ,255 ,0,0 
1340 DATA 25 4 ,254,254,248,224,128,0,0 
1 350 DATAO , 0 , 1 , 1 4 , 48 , 64 ,96 ,88 
1 360 DATAO, 0,255, 0,24 ,36,24 ,0 
1 370 DATAO, 0, 128,1 12,12,2,6,26 
1 380 DATA71 ,64,64,64,32,88,71 , 64 
1 390 DATAO, 255, 0,0, 0,0, 0,255 
1 400 DATA226 ,2 ,2 ,2 , 4 ,26 ,226 ,2 
1410 DATAO, 0,1 ,1 5,63,1 27,95,1 03* 

1 4 20 DATAO, 0,25 5, 255, 231 ,21 9,231,255 
1 4 30 DATAO, 0,1 2 8,240,252,254,250,230 
1 4 40 DATAI 20 ,1 27,1 27,1 27,63,1 03,1 20,1 27 
1 4 50 DATA 255 ,0 ,255 ,25 5 ,255 ,25 5 ,25 5,0 
1 4 60 DAT A 30, 25 4 ,25 4 ,25 4 ,252 ,2 30 ,30,25 4 
1470 FORICI 61 36T01 6335: READA : POKEI ,A:NEX 
T 

1500 : 

1510 REM VARIABILI INIZIALI 
1 520 : 

1 530 ZI $ = " {WHITE} (3 CBM KHCUR.GIUH3 CU 
R . SIN } { 3 CBM KHCUR.GIUH3 CUR.SIN} 
{3 CBM K}" :Z2$=" {WHITE} {3 SPC}{CUR. 
GIU } { 3 CUR.SIN} {CBM I}{CBM T}{CBM § 
} {CUR.GIU} {3 CUR.SIN} {C BM G}{CBM +} 
{CBM M}" 

1 540 Z 3 $ = " {WHITE} {3 SPC} {CUR.GIU} {3 CUR. 
S I N } { C BM \}{SH \ } { C BM N } { C U R . G I U } { 3 
CUR.SIN} {CBM Q } {CBM D } { C BM Z } " : Z 4 $ 
-"{3 SPC } {CUR .GIU }{ 3 CUR . SIN } { 3 SPC 
} {CUR.GIU} {3 CUR.SIN} {3 SPC}" 

1550 Z5$«" {WHITE} {CBM S}{CBM P}{CBM A}{C 
UR . Gl U } {3 CUR.SIN} {CBM E}{CBM R } { C B. 
M W} {CUR .GIU } { 3 CUR.SIN} {C BM G}{CBM 
+ } { CBM M}" : Z6$=" {WHITE} {CBM H}{CBM 
J } {CBM L} {CUR .GIU } { 3 CUR.SIN}{CBM 
Y } { C BM U } { C BM 0} {CUR.GIU} {3 CUR.SIN 
} {CBM Q} {CBM D} {CBM Z}" 

1560 PB-0:PN«128:DB-1:DN=129:B*255 
1570 DIMA(IOO) ,X(8) ,B(2) ,Z(2) 

1 580 DATA-6,-7,6 ,7 ,-7 ,-6,7 ,6 
1585 RESTÒRE i 580 
1590 F0RI«1T08:READX(I) :NEXT 
2000 : 

2010 REM PRESENTAZIONE 
2020 : 

2030 C0L0R4 ,7 ,2: COLORO, 7 ,2:V0L8 
2040 PRINT" {CLR } " :CHAR , 1 7 , 3 , " { WHITE }D A 
MA" 

2050 CHAR , 1 7 , 4 , " {7 SH *}»:PRINT 
2060 PRINT" {YELLOW} { 3 C U R . G I U } TU '-Gl OC H I 
CON LE PEDINE BIANCHE E IL C16"; 
2070 PRINT" CON QUELLE NERE." 

2080 PRINT" PER EFFETTUARE LA M0SSA{2 SPC 
} PRIMA INSERISCI"; 


scacchiera. Le pedine si pos- 
sono spostare solo in dire- 
zione dello schieramento 
avversario, spostandosi di 
un passo alla volta lungo le 
diagonali delle caselle nere. 
La pedina che, lasciandosi 
una casella vuota dietro di 
sé, viene a trovarsi in una 
casella attigua a quella di 
una pedina avversaria, è 
scavalcata e “mangiata” o 
“presa” da quest’ultima. Le 
prese devono essere effet- 
tuate obbligatoriamente. 
Quando una pedina raggiun- 
ge una casella vuota della 
prima fila avversaria, viene 
sovrapposta ad un’altra e 
viene chiamata “dama”. Que- 
sta ha il vantaggio di poter 
essere mossa sia in avanti 
che aH’indietro, di poter 
“mangiare” pedine e dame 
avversarie, ma di poter esse- 
re mangiata solo da un’altra 
dama. Vince chi riesce a 
mangiare tutte le pedine 
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dell’avversario o a bloccarle 
in modo che non sia più pos- 
sibile muoverle. 

Il programma presentato 
realizza fedelmente il gioco 
della Dama con le regole so- 
pra riportate e vi consente 
di sfidare il vostro C16. Il 
computer non è comunque 
un giocatore al livello di un 
maestro. La capacità di gio- 
co è ad un livello abbastanza 
semplice: viene esaminata 
una determinata situazione 
della scacchiera ed in base a 
questa viene scelta la mossa 
senza vagliare i possibili ef- 
fetti su mosse successive. 
Questo in quanto una routi- 
ne che consentisse di mi- 
gliorare il livello di gioco a- 
vrebbe comportato, oltre ad 
un notevole allungamento 
del programma con proble- 
mi di memoria, anche un no- 
tevole ritardo nei tempi di 
risposta essendo il pro- 
gramma totalmente in BA- 
SIC. 
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2090 PRINT" LE COORDINATE DELLA CASELLA { 2 
SPC } DI PARTENZA"; 

2100 PRINT" E POI QUELLE DELLA CASELLA DI 
ARRIVO . " 

2105 PRINT" PER CANCELLARE USA IL TASTO < 
CLE AR/HOME > " ; 

2110 PRINT" EFFETTUARE UNA PRESA PER VOLT 
A: {2 SPC}IL{2 SPC}C1 6" ; 

2120 PRINT" VI CHIEDERÀ' SE NE AVETE UNA{ 
2 SPC JSUCCESSIVA" ; 

2130 PR INT" D A EFFETTUARE." 

2140 PRINT"LE PRESE DEVONO ESSERE ESEGUI 
TE OBBLIGA-"; 

2150 PRINT"TORI AMENTE . " 

2160 PRINT" (3 CUR.GIU} {CYAN}PREMI < RETUR 
N> PER INIZIARE" 

2170 GETZ$ : IFZ$OCHR$( 1 3 )THEN21 70 
2180 PRINT" {CLR}" :CHAR, 1 4, 1 0," {FLASH ON } 
{ YELLOW } A T T E N D I {FLASH OFF}" 
2500 : 

2510 REM VARIABILI GIOCO 
2520 : 

2530 FORI«1T0100:A(I)«9 

2 5 40 IFI<7 3ANDI>55ANDI<>68ANDI0 67ANDI<> 
62ANDI061 ANDIO60THENA(I )«PN : GOTO 2 
570 

25 50 IFI<5 4ANDI>42ANDI0 49ANDI<>48ANDI<> 
47THENA (I )~B:GOTO2570 
25 60 IFI<41 ANDI>23ANDK>36ANDI035ANDI<> 
34ANDK>29ANDI028THENA(I )«PB 
2570 NEXT 
2580 HS*0 : CS-0 
3000 : 

3010 REM STAMPA SCACCHIERA 
3020 : 

30 30 COLORO , 1 : COLOR 4 , 4 , 6 : PR I NT" { CLR } " 
3040 F0RI-0T023:CHAR,0,I,"{CYAN}{CBM K}" 

: CHAR ,25 , 1 , " { 1 5 CBM K}":NEXT 
30 50 F0RI-0T01 8STEP 6 : FOR J- 1 T020STEP 6 
3060 CHAR , J , I , ZI $ : NEXTJ , I 
3070 F0RI-3T022STEP6 :F0RJ-4T023STEP6 
3080 CHAR , J ,1 , ZI $:NEXTJ ,1 

3090 CHAR ,0,24," { RVS 0N}{CYAN}{2 SPC}A{2 
SPC } B { 2 S PC } C { 2 S PC } D { 2 SPC}E{2 SP 
C } F { 2 SPC } G { 2 S PC } H { 1 5 SPC}{RVS OFF 
}" 

3100 POKE3047 , 99 : P0KE4071 ,97 
3110 PRINT" {RVS ON} {HOME} {CUR.GIU}8{3 CU 
R . GIU } { CUR . SIN } 7 { 3 CUR.GIU} {CUR.SIN 
} 6 { 3 CUR.GIU} {CUR. SIN } 5 { 3 CUR.GIUH 
CUR.SIN}4{3 CUR.GIU} {CUR. SI N } 3 { 3 CU 
R.GIU} {CUR.SIN}2{3 CUR.GIUHCUR.SIN 
}1 {RVS OFF}" 

3120 CHAR, 29, 1 , "{RVS ON}D A M A":CHAR,29 
,2," {7 SH E} {RVS OFF}" 

3130 CHAR , 31 ,5 ," {RVS ON } C 1 6 " : CHAR , 3 1 , 1 2 , 
"T U { R VS OFF}" 

3140 G0SUB8 1 00 

3150 CHAR, 28, 19, "{RVS ON } { C YAN } P ART I PER 


" : CHAR, 2 6, 20, "PRIMO? (2 SPC} (S/N) {R V 
S OFF}" 

3160 S0UND1 ,810, 15:S0UND1 ,770,1 5 
3170 GETZ$:IFZ$<>" S n ANDZ$O u N" THEN3170 
3180 CHAR, 28, 19, "(9 CBM K } " : CHAR , 26 , 20 , " 
{13 CBM K}" 

3190 IFZ$*"S"THEN4000 
3200 I«56:G0T051 95 
3990 : 

4000 REM MOSSA GIOCATORE 
4010 : 

4020 M0«0:CHAR,30,14,"(CYAN}{5 CBM K}{CU 
R . SIN } {FLASH ON } { 4 CUR.SIN}(RVS ON } 
< (FLASH OFF}" iSOUNDI ,800,25 
4030 GETZ$ : IFZ$-"X"THEN7560 
4035 IFZ$-"P"ANDR*2THENCHAR , 30 , 1 4 ," (2 SP 
C}".:GOT05000 

4050 IFZ$<"A"ORZ$>" H ,, THEN403O 
4060 M $ * Z $ + " (FLASH ON}<(FLASH OFF}":CHAR 
» 3 0 , 1 4 , M$ 

4 07 0 GETZ$ : IFZ$«" (HOME } " T H E N Z $ - " " : CHA R , 3 
0,14, "(FLASH ON } < (FLASH OFF} ":GOTO 
4030 

4080 I F Z $ < " 1 "ORZ$>" 8"THEN4070 
4090 M$-LEFT$(M$ , 1 ) + Z$ + "- (FLASH ON}<(FLA 
SH OFF } " : CHAR , 30 , 1 4 ,M$ 

4100 GETZ$ : I F Z $ * " (HOME } "THENM$-LEFT$ (M$ , 
1 ) + " (FLASH ON }<{ FLASH 0FF}(3 SPC}": 
CHAR, 30., 1 4,M$:G0T04070 
4110 IFZ$<"A"0RZ$>"H"THEN4l 00 
4120 M$-LEFT$ (M$ , 3 ) + Z$ + " (FLASH 0N.}<(FLAS 
H 0FF}":CHAR,30,14,M$ 

4130 GETZ$: IFZ$»" { HOME }" THE NM $ -L EFT $( M $ , 
3 ) + M (FLASH ON } < { FLASH 0FF}{2 SPC}": 
CHAR, 30, 1 4,M$:G0T04100 
4140 I F Z $ < " 1 "ORZ$>"8"THEN4l 30 
4150 M$*LEFT$(M$ ,4)+Z$:CHAR , 30 , 1 4 ,M$ 

4160 F$ ( 1 )»LEFT$(M$ ,2 ) :F$(2)-RIGHT$(M$ ,2 

) 

4170 FORI» 1 T02 : REST0RE9500 
4180 READX$,Y1 : IFY1 -0THEN7000 
4190 IFF$(I)«X$THENB(I)»Y1 : GOTO 42 10 
4200 G0T04180 
4210 NEXT 

4220 I F A ( B ( 1 ) ) OPBANDA ( B ( 1 ) ) < > DBTHEN 7000 
4230 IFA(B(2) )<>BTHEN7000 
4240 I F B ( 1 )>B(2)ANDA(B(1 ) ) < >DBTHEN7000 
4250 IFR-OTHEN4330 
4260 IFROI THEN4290 
4265 IFABS(B( 1 )-B(2) )>7THEN‘4330 
4270 CHAR,30,19Ì" (RVS ON } { C YAN } P R ES A" : CH 
AR , 28 , 20 , "OBBLIGATA" 

4 2 80 F0RI-600T0700STEP4 : SOUND 1 , 1 , 1 : NEXT 
4285 FORI-1T0500:NEXT:CHAR,30,19, n {5 SPC 
} " : CHAR , 2 8 , 20 , " { 9 SPC}(RVS OFF}":GO 
T04020 

4 2 90 I F B ( 1 )-XRANDABS(B(1 ) - B ( 2 ) ) > 7THE N 4 3 3 
0 

4300 CHAR,29,19, n (RVS 0N}(CYAN}0 PRENDI" 
:CHAR,29,20,"0 PASSI(RVS OFF}" 


Utilizzo del pro- 
gramma 

Anche se, all’interno del 
programma, sono contenute 
brevi istruzioni sul gioco, è 
bene dare qualche ulteriore 
spiegazione sull’utilizzo del 
programma stesso. All’ini- 
zio, dopo la presentazione 
con le relative istruzioni, vi 
verrà chiesto se volete ini- 
ziare per primi la gara: se 
preferite lasciare la prima 
mossa al C16, basterà ri- 
spondere con N (no) alla do- 
manda. 

La mossa si effettua inse- 
rendo prima le coordinate 
della casella contenente il 
pezzo da spostare e quindi le 
coordinate della casella di 
arrivo. La forma di tali coor- 
dinate dovrà essere “Lette- 
ra/Numero”. 

Per non appensatire il pro- 
gramma, non sono stati pre- 
disposti i controlli nel caso 
in cui dobbiate effettuare 
più prese in un’unica mos- 
sa. Pertanto, se vi capiterà 
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di dover mangiare più di un 
pezzo del C16 con una sola 
mossa, dovete effettuare 
tante mosse quanti sono i 
pezzi da prendere. Ad ogni 
presa che effettuate, il C16 
vi chiede se ne avete un’al- 
tra in successione e, nel ca- 
so sopra riportato, basterà 
rispondere “S” (sì) alla do- 
manda per inserire le coor- 
dinate per la presa successi- 
va. Se barate e segnalate una 
presa successiva con una 
casella di partenza diversa 
da quella di arrivo, il compu- 
ter segnala il vostro errore. 
A questo punto basta preme- 
dere “P” (passo) al posto 
delle coordinate, in modo 
che la mossa passi al C16. 

Se vi siete stancati di gioca- 
re o volete interrompere la 
partita per iniziarne una 
nuova, basterà inserire una 
M X” (EXIT) al posto delle 
coordinate ed il computer vi 
chiederà se volete effettuare 
una nuova gara. 

Tratto da 

Super Commodore 8/’85 
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4310 SOUND 1 ,300,30: FORI-1 T0 900 : NEXT 
4320 CHAR,29,19,”{9 CBM K}":CHAR,29,20," 
{8 CBM K } " : GOTO 4 0 20 
4330 IFA-BS(B( 1 )-B(2) X-7THEN4370 
4340 IFA( (B(1 )+B(2) )/2)<>PNANDA( (B(1 )+B( 
2) )/2)<>DNTHEN7000 

4350 IFA( ( B ( 1 )+B(2))/2)*DNANDA(B(1 ) )<>DB 
THEN7000 

4360 A((B(1)+B(2))/2)=B:M0=1:HS=HS+1 
4370 A(B(2) )=A(B( 1 ) ) : A ( B ( 1 ) )«B 
4380 PRINT” {RVS OFF}" :G0SUB8l 00: IFHS* 1 2T 
HEN7500 

4390 IFM0=0THEN5000 

4400 CHAR , 27 , 1 9 , " {CYAN } {RVS ON } ALTRA PRE 
SA?" :CHAR,30,20,"(S/N) {RVS OFF }" : SO 
UND 1 ,700,30 

4410 GETZ$ :IFZ$0"N"ANDZ$0"S"THEN4410 
4420 CHAR , 27 , 1 9 , " { 1 2 CBM K } " : CHAR , 30 , 20 , 
"{6 CBM K}" 

4 4 30 IFZ$="S"THENR=2:XR=B(2) : GOTO 4 020 
5000 : 

5010 REM MOSSA CI 6 
5020 : 

5030 CHAR , 30 ,7 , " {RVS OFF } { C YAN } {5 CBM K} 
" : S 0 U N D 1 ,800,1 5:1*24 

5040 FORF* IT07 2 : I F A ( F ) < > PN AN DA ( F ) < > DNTHE 
N5090 

5050 FORD* 1 T04 

5060 IFA(F)<>DNANDD>2THEN5080 
5070 IFA(F+2*X(D) ) = BAND ( A ( F + X ( D ) ) * P BOR ( A 
(F + X(D) )=DBANDA(F )=DN) ) THENQ=X ( D ) :G 
0TO51 00 

5080 NEXTD : I-F-+1 : G0T05040 
5090 NEXTF :G0T051 90 

5100 A(F+2*Q)*A(F ) : CS* CS + 1 :GOSUB5500 
5110 A(F+Q)=B:A(F)=B:P=F+2*Q 
5120 G0SUB81 00 : IFCS=1 2THEN7700 
5125 M = 0 : FORD* 1 T04 
5130 IFA ( P ) <>DNANDD>2THEN51 60 
5140 IFA(P+2*X(D) )*BAND(A(P+X(D) )*PBOR(A 
(P + X(D) )=DBANDA(P)=DN) )THENM=X(D) 
5150 IFM*OTHENNEXTD 
5160 IFM=OTHENGOSUB5600:GOT04000 
5170 A(P+M)=B:A(P+2*M)=A(P) :A(P)=B 
5180 CS = CS+ 1 : P=P+2*M : G0T051 20 
5190 MS = 0 : PI*0 : PM=0 : 1*23 
5195 DOUNTILI-72 
5200 1 = 1+ 1 : IFA (I )<>PNTHEN5280 
5210 FORD* 1 T02 : LS=0 

5 2 20 IFA(I + X(D) )*BTHENLS*1 2 : ELSEG0T05270 
5230 IFI+X(D)<28THENPM=I :PI*I+X(D):MS=8: 

EXIT 

5235 IFA(I+X(D+4 ) )*PBANDA (I-X(D+4 ) )*BTHE 
NLS*LS+ 1 

5240 IFA(I+2*X(D) )*PB0RA(I+2*X(D) )*DBTHE 
NLS-LS-2 

5245 IFI>68THENLS=LS-1 

5247 IFA(I+X(D+4))-PNAND(A(I+2*(D+4))-PB 
0RA(I + 2>X(D + 4 ) )-DB )THENLS*LS-3 


5250 IF(A(I-13)-P BORACI -13)“DB)AN DA (1+2* 
X ( D ) + 1 3)-BTHENLS-LS-2 
5 25 3 IFK40ANDA ( 1+ 1 )-PNANDA(I-1 ) » PNTHENL 
S-LS+3 

5255 I FA (1-1 3)-PBANDA(I+2*X(D)+1 3)<>BAND 
A(I+2&X(D) )<>PBTHENLS«LS+ .5 

5258 IFA(I-X(D) ) -DBTHENLS-LS+ 1 .5 

5259 IFI<68ANDA(I-X(D) ) -PN ANDA ( I-2*X ( D ) ) 
-DBTHENLS-LS-3 

5260 IFA(I-1 3)-BANDA(I+2*X(D)+1 3)-DBTHEN 
LS-LS-2 

5265 G0SUB5900 
5270 NEXT : G0T05 350 
5280 IFA(I )<>DNTHEN5350 

5290 FORD-1TO4:LS-0:IFD<3THENK«1 3:ELSEK- 
“13 

5300 I F A ( I + X ( D ) ) -BTHENLS* 1 1 : ELSEG0T0 5 3 4 0 
5305 IFA(I+2*X(D) ) -PBTHENLS-LS+ 1 
5310 IFA(I+2*X(D) )-DBTHENLS-LS-2 
5315 IFA (I + X(D+4 ) )-DNANDA (I-X(D+4 ) )-BTHE 
NLS-LS+1 

5320 IFA (I-K )-D BANDA ( I + 2* X ( D ) + K,) -BTHENLS 
«LS-2 

5325 IFA(I-K) -BANDA ( I + 2*X ( D ) +K ) «DBTHENLS 
-LS-2 

5330 IFA(I-K)-DBANDA ( I + 2 * X ( D ) + K ) - D BTHEN L 
S-LS+3 

5335 G0SUB5900 
5340 NEXTD 
5350 LOOP 

5360 IFMS-0THEN7500 

5370 A(PI)-A(PM) : A ( PM ) - B 

5380 F-PM:G0SUB5500:P-PI :GOSUB5600 

5390 GOSUB81 00 : G0T04000 

5500 REST0RE9500 

5510 READX$,Y1 : I F Y 1 < >FTHEN55 1 0 

5520 M$-" {RVS ON} { C YAN } " + X$ + "-" : RETURN 

5600 RESTORE9500 

5610 READX$ , Y1 : IFY1 OPTHEN561 0 

5620 M$«M$+X$+" {RVS OFF } " : CHAR , 30 , 7 , M$ 

5630 FORI-700T0800STEP4 :S0UND1 ,1,1 : NEXT 

5640 R-0: 1-23: DOUNTILI-72 

5650 I-I + 1 : IFA(I )<>PBANDA(I )<>DBTHEN5690 
5660 F0RD-4T01STEP-1 : I FD< 3ANDA ( I ) - P BTHEN 
5680 

5670 I F A ( I + X ( D ) ) -PN ANDA (I + 2*X ( D ) ) -BTHENR 
-1 : EXIT 

5675 IFA(I + X(D) )-DNANDA (I )-DBANDA(I + 2*X( 
D) ) -BTHENR- 1 :EXIT 
5680 NEXT 
5690 LOOP 
5700 RETURN 

5900 IFLS<MSTHENRETURN 
5910 IFLS-MSANDRND(0)> .5THEN RETURN 
5920 MS-LS: PM-I : PI-I+X(D) :RETURN 
7000 : 

7010 REM MOSSA NON VALIDA 
7020 : 


70 30 CHAR ,30,19, "MOSSA" : CHAR , 27 , 20 , " NON 
VALIDA! " 

70 4 0 FORI=600T0400STEP-4 : SOUND 1 ,1,1 : NEXT 
7050 FORI* 1 T01 00 : NEXT 

7060 CHAR , 30 , 1 9 , " {5 SPC } " : CHAR , 27 , 20 , " { 1 
1 SPCHRVS OFF}" 

7070 G0T04020 
7500 : 

7510 REM FINE PARTITA 
7520 : 

7530 CHAR,27.,19,"{RVS ON } { C YAN } HA I { 2 SPC 
} VINTO ! " 

7540 FOR J* 1 T05 : FORI*600T0800STEP4 
7550 SOUND 1 ,1,1 :NEXTI , J 

7560 CHAR, 26, 21 , "GIOCHI ANCORA" : CHAR , 30 , 
22,"(S/N){RVS OFF}" 

7570 GETZ$ : IFZ$»"S"THENPRINT" {CLR}":GOTO 
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7580 IFZ$O"N"THEN7570 

7590 PRINT" {CLR}" :CHAR, 1 6, 1 0," {WHITE}C I 
A 0" ' 

7600 POKE652 98 , 4 : POKE65 2 99 , 208 : END 
7700 CHAR , 28 , 1 9 , " {RVS ON}{CYAN}HO VINTO! 

" : GOTO7540 
8000 : 

8010 REM DA PEDINA A DAMA 
8020 : 

8030 F0RI-24T072 

8040 IFA ( I )*PBANDI>68THENA(I )*DB 
8050 IFA(I)-PNANDI<28THENA(I)-DN 
8060 NEXT : RETURN 
8100 : 

8110 REM AGGIORNAMENTO SCACCHIERA 
8120 : 

8130 G0SUB8000 : RESTORE9500 
8140 F0RI-0T01 9STEP6 : F0RJ*4T023STEP6 
8150 READX$ , Y 1 : G0SUB8200 : CHAR , J , I , Z0$ : NE 
XT 

8160 FORJ* 1 T020STEP6 : READX$ , Y 1 :G0SUB820 0 
8170 CHAR , J ,1 + 3 ,Z0$: NEXT: NEXT: RETURN 
8200 I F A ( Y 1 )-PNTHENZ0$-Z2$ : GOTO8250 
8210 I F A ( Y 1 )»PBTHENZ0$*Z3$ : G0TO8250 
8220 I F A ( Y 1 )*DNTHENZ0$*Z5$ : G0T08250 
8230 I F A ( Y 1 )*DBTHENZ0$*Z6$:GOTO8250 
8240 IF A ( Y 1 )*BTHENZ0$*Z4$ 

8250 RETURN 
9500 : 

9510 REM DATA CASELLE 
9520 : 

95 30 DAT A " B8 " , 7 2 , " D8" ,71 , " F 8 " , 70 , " H 8" ,69 
95 40 DAT A " A7 " , 6 6 , "C7" , 65 , "E7" , 6 4 , »G7" , 63 
9 550 DATA" B6 " , 5 9 , " D 6 " , 5 8 , " F 6 " ,57 , " H 6 " ,56 
9 5 60 DATA" A5" , 5 3 , "C5" , 5 2 , "E5" , 5 1 , "G5" , 50 
957 0 DATA" B4 " , 4 6 , " D 4 " , 4 5 , " F 4 " , 4 4 , " H 4 " , 4 3 
9580 DAT A "A3" , 40 , "C3" , 39 , "E3" , 38 , "G3" , 37 
95 90 DATA" B2" , 33 , " D2" , 32 , " F2" , 3 1 , "H2" , 30 
9600 DATA" Al " , 27 , "CI " , 26 , "E1 " , 25 , "Gl " , 24 
9610 DATA"0" ,0 * 


BACKGAMMON 



1 00 

COLORO, 1 : COLOR 4,1 : COLORI ,2:WZ«1 


1 1 0 

W( 1 )--300:W(2)=500: 

: W ( 3 ) - 1 00 


1 20 

W(4)*“300:W(5)*“500:W(6)=~1 200 


1 30 

W(7)«70:W(8)«700 



1 40 

DIMA$(6) , A % ( 2 5 ) , P % < 

[12) ,QJ(12) 


1 50 

U $ « " {7 CUR.SU}" :D$ = 

="(12 CUR.GIU) 

" 

1 60 

DEFFNA(X)«INT(X*RND(7)+1 ) 


170 

A$(1)«"{RVS ON } { 3 SPC} {CUR.GIU} { 

3 CU 


R .SIN } {SH Q} {CUR. 

GIU } { 3 CUR . SIN } {3 


SPC)" 



180 

A$(2)-"{RVS ON } { 2 SPC } { SH Q}{CUR 

.GIU 


} { 3 CUR .SIN } { 3 SPC} 

.{CUR.GIU} {3 CUR . S 


IN } { SH Q } { 2 SPC}" 



190 

A$(3)-"{RVS ON } { SH 

Q } { 2 SPC} {CUR 

.GIU 


} (3 CUR. SIN} { SH Q} 

{CUR.GIU} {3 ( 

:ur. 


SIN} {2 SPC} {SH Q}" 



200 

A$(4)-"{RVS ONHSH 

Q} {SH Q} {CUR 

.GIU 


} { 3 CUR. SIN} {3 SPC} 

{CUR.GIU} {3 CUR.S 


IN } { SH Q} {SH Q}" 



210 

A$(5)-"{RVS ON } { SH 

Q} {SH Q } {CUR 

.GIU 


} {3 CUR. SIN} {SH Q} 

{CUR.GIU} {3 CUR. 


SIN} {SH Q} {SH Q}" 



220 

A$ ( 6 )«" {RVS ON} {SH 

Q} {SH Q} {CUR 

.GIU 


} {3 CUR. SIN} {SH Q} 

{SH Q} {CUR.GIU} {3 


CUR. SIN} {SH Q} {SH 

Q}" 


230 

Z$-r {10 SPC}" :GOTO2450 


240 

REM 




Il gioco del Backgammon ha 
avuto negli ultimi anni una 
larghissima diffusione: è un 
gioco d’azzardo, che può tut- 
tavia essere molto diverten- 
te anche se giocato senza ri- 
schiare nulla. 

Eccone in breve le regole. Il 
cosiddetto “tavoliere” di gio- 
co è suddiviso in quattro di- 
versi settori, due per gioca- 
tore. 

Rifacendoci a come appare 
il tavoliere sullo schermo, 
poiché il computer gioca 
con le pedine “piene” e voi 
con quelle “vuote”, i vostri 
due settori sono quelli infe- 
riori: settore interno (lette- 
re X-S) e settore esterno 
(lettere R-M). Il settore in- 
terno del computer è con- 
traddistinto dalle lettere A- 
F, mentre quello esterno 
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dalle lettere G-L. Si dispone 
di quindici pedine a testa, ed 
ogni settore è formato da sei 
“frecce” di diverso colore. 
Scopo del gioco è spostare le 
proprie pedine, a seconda 
del tiro dei dadi, fino a por- 
tarle tutte nel proprio setto- 
re interno quindi, sempre a 
seconda del tiro dei. dadi, to- 
glierle dal tavoliere. Vince 
chi per primo riesce a to- 
gliere dal tavoliere tutte le 
proprie pedine. 

Si inizia tirando un dado a 
testa per stabilire a chi toc- 
ca la prima mossa; il tiro dei 
dadi avviene automatica- 
mente e rieffettuato in caso 
di parità. Stabilito a chi toc- 
ca iniziare, viene visualizza- 
to il tavoliere con la confi- 
gurazione iniziale. Il senso 
di movimento delle pedine è 
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250 F-0:BH-0:BP-0:NH-15:NP-15 
2 60 RESTORE. 4 FORI-ITOI 2: RE AD A* (1 ) 

270 k% (25-1 )«-A*(I ) :NEXT 

280 DATA2‘,0, 0*0, 0,-5, 0,-3, 0,0, 0,5- 

290 PRINT" {CUR.GIUjSPAZIO PER INIZIARE " 

300 PRINT" LA PARTITA..." 

310 A$- " " : GETA $ : I F A$ < > " "THEN310 
330 PRINT"{CLR }{8 CUR.GIU} {4 SPC)I0{3 SP 
C } T U " 

340 PRINT" {HOME}IO GIOCO COÌTì {CYAN}{SH 
Q } { WHITE } , TU CON I {CYAN}{SH W}{WH 
ITE}" 

350 G0SUB1 730: IFP-QTHEN350 
360 G0SUB21 40 : G0SUB2 1 40:G0SUB21 60 
370 G0SUB1 91 0 : F-1 :FM»1 : IFP>QTHEN930 
380 G0T0430 

390 REM MOSSA DEL GIOCATORE 
400 G0SUB2 1 20 

410 PRINT" {WHITEJSPAZIO PER TIRARE .1 DAD 
I" 

420 A$-"" :GETA$ : IFA$<>" " THEN420 
4 30 G0SUB1 7 30 : K-0 :M-2 : IFP-QTHENM-4 
440 FM«0:G0SUB21 20 :G0SUB900 
450 PRINT" {WHITEJLA TUA MOSSA CON IL";P; 
»? { C YAN } " ; 

460 A $ - " " : GET A $ : IFA$«» "THEN4 60 

470 N-ASC(A$)-64 

480 IFN>2600RN<1THEN440 

490 PRINTA$ : IFN-25THEN720 

500 IFN-26THEN760 

510 I FBH-0THEN5 40 

520 GOSUB2120:PRINT" {WHITEjSEI SUL BAR ! { 
C Y AN } " 

530 G0SUB21 40:GOT0440 
540 REM 

550 IFA* (N)>0THEN580 

560 G0SUB21 20 : PRINT» {WHITE }NULLA QUI! ! { C 
YAN}» 

570 GOTO530 
580 IFN+P<25THEN620 
590 IFHI-NHTHENF-0 : GOT0800 
600 G0SUB21 20 : PRINT" {WHITE}FUORI DAL TAV 
OLO { C YAN } " 

610 G0T0530 

620 IFA$ (N + P )>-2THEN650 

630 G0SUB21 20 : PRINT» {WHITE } SPIACENTE ,E » 
BLOCCATO! { C Y A N } " 

640 GOTO530 

650 A%(N)-A%(N)-1 : G0SUB1 910 : N«N + P 

660 IFA*(N)>-1THEN690 

670 A*(N)-0:BP-BP+UG0SUB2120 

680 PRINT" {WHITE}Ml HAI MANGI ATO !{ C YAN } " 

690 A% (N ) -A% (N ) + 1 :M-M-1 :G0SUB1910 

700 P-Q : IFM>0THEN440 

710 G0T0930 

720 IFBHTHEN7 40 

730 G0T0560 

740 IFA> (PX-1THEN630 

750 N-0 : BH-BH-1 : G0T0650 

760 IFK-0THEN790 


770 G0SUB21 20:PRINT" {WHITE} PERDI LA MOSS 
A! { C YAN } " 

780 G0SUB21 40 : G0T0930 
790 K-P:P«Q:Q-K:G0T0440 
800 IFN+P>25THEN850 
810 NH-NH-1 : IFNHTHEN840 

820 G0SUB21 20:PRINT" {WHITE } HA I VINTO! {CY 
AN}" 

830 G0SUB21 40-.GOT02340 

840 A%(N )*=A%(N) — 1 :N*0:GOT0690 

850 F0RI-1 9T0N-1 

860 IFA/&(I)<*0THEN890 

870 G0SUB21 20 : PRINT" (WHITE)NON PUOI. PUOI 
{ C Y A N } " ; 

880 PRINT" (WHITE}MUOVERE IN {CYAN}";CHR$ 
(1 + 64) : G0T05 30 
890 NEXT : G0T08 1 0 
900 HI-0:F0RI*1 9T024 
910 IFA*(I ) >OTHENHI=HI+A* (I ) 

920 NEXT: RETURN 
930 REM 

940 K*0:GOSUB21 20:PRINT" { WHITE } E ' IL MIO 
TURNO{CYAN }" 

950 G0SUB1 730 : M-2 : IFP-QTHENM-4 
960 FM-0 : IFBP>0THEN1 1 70 
970 PI-0 : FORICI T06 
980 IFAH(IXOTHENPI-PI-AJKI) 

990 NEXT: IFPI«NPTHENF*Ò: GOTO 1 250 
1 0 00 G0SUB1 81 0 : G0SUB1 390 
1010 IFQM>OTHEN 1 1 40 
1020 IFPM>0THENN-P5t(X) :GOT01'050 
1030 G0SUB21 20: PRINT" (WHITE)NON POSSO MU 
OVERE{CYAN}" 

1040 G0SUB21 40:G0T0390 

1 050 G0SUB21 20 : PRINT" (WHITE }CON IL"P;"{C 
YAN } " ; 

1 060 PRINT" (WHITE}MU0VER0' " ; CHR$ ( 64 + N ) " 
{ C YAN } " 

1070 A*(N)»A*(N)+1 :G0SUB1 910:N-N-P 
1 080 IFA% (NX1THEN1 1 10 
1090 Af(N)-0: BH-BH+1 :G0SUB21 20 
1100 PRINT" {WHITE} MANGIATO! { C Y A N } " 

1110 A% (N )-A% (N )-1 :M-M-1 : G0SUB1 910 

1120 K-1 : P-Q : IFMÌ>0THEN960 

1130 GOTO 3 90 

1 1 40 I FPM-OTHEN 1 1 60 

1150 IFPM<QMTHENN-P$(X) : G0T01 050 

1160 N — Q % ( Y ) : K-P : P-Q : Q-K : G0T01 050 

1170 IFAJK25-QX2THEN1210 

1180 IFA* (25-PX2THEN1 200 

1 190 GOTO 1 0 30 

1200 N-25 : BP-BP- 1 : G0T01 050 
1210 IFA56(25-'P)<2THEN1230 
1220 K-P : P-Q : Q-K : G0T01 200 
1230 G0SUB1 81 0: IFQM<PMTHEN1 220 
1240 GOT0 1200 
1250 IFA*(P)>-0THEN1 320 

1 2 60 G0SUB21 20 : PRINT" (WHITE } USCIRÒ ’ (CYAN 

1270 PRINT" (WHITE)CON IL"P"(CYAN}" 

1280 NP-NP-1 : IFNPTHEN1 31 0 


quello orarlo (da A a X) per 
il giocatore e quello antiora- 
rio (da X ad A) per il com- 
puter. Da questo momento 
in poi, per decidere la pro- 
pria mossa, si tirano sem- 
pre due dadi contempora- 
neamente. 

Poniamo il caso che abbiate 
tirato 3 ed 1: potete sposta- 
re una pedina di ti?è “frecce” 
nel vostro senso di moto ed 
un’altra pedina (o la stessa) 
di una freccia, sempre nello 
stesso senso. Non potete an- 
dare a “cadere” su frecce oc- 
cupate da più di una pedina 
dell’avversario. Esempio: 
con la configurazione ini- 
ziale e con 3 e 1 non potete 
spostarvi da L ad 0 con il 3 e 
poi da 0 a Q con l’I, perché Q 
è occupata da più di una pe- 
dina dell’avversario. Potete 
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invece spostare una pedina 
da L ad 0 sfruttando il 3, e 
un’altra pedina da A a B 
sfruttando 11. Meglio anco- 
ra, potete muovere Q in T 
con il 3 e S in T con 11, an- 
dando così ad occupare la 
freccia T con due delle vo- 
stre pedine, precludendone 
così l’occupazione all’avver- 
sario. 

Esiste un altro motivo per 
cui non è consigliatile la- 
sciare pedine isolate su una 
freccia: se l’avversario capi- 
ta su una di queste pedine 
“solitarie”, ve la mangia; in 
questo caso la pedina man- 
giata viene posta sul “bar”, 
la barra di separazione cen- 
trale contraddistinta dalla 
lettera Y. Al tiro successivo 
il giocatore mangiato dovrà 
obbligatoriamente rientrare 
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1 290 GOSUB21 20 : PRINT" {WHITEjHO VINTO! {CY 
AN}" 

1300 G0SUB21 40:GOTO24l 0 

1310 N«P:A* (N)»A$ (N)+2:G0T01 1 10 

1320 F0RI-6T01STEP-1 

1 330 IFA% ( I ) <OANDI>PTHEN1 000 

1340 IFA$(I X0THEN1 360 

1350 NEXT 

1 360 G0SUB21 20 : PRINT" {WHITE}FARO ' USCIRE 
{ C YAN } " ; 

1 370 PRINTCHR$ (64 + 1 ) ; " {WHITE}CON IL"P"{ 
C Y A N } " 

1 380 P« I : GOTO 12 80 
1390 REM 

1400 IFKTHEN 1 420 

1^110 G0SUB21 20: PRINT" {WHITEjSTO PENSANDO 
. . . { C Y A N } " 

1420 IFPM-0THEN1 560 
1430 IFHI-NHTHEN1 71 0 
1440 E--9999 : FORI-1 TOPM : H-0 
1 450 U»P*(I) : V- W ( 7 ) *U 

1 4 60 A/6('U)«A$(U) + 1 :IFA*(U-P)<1THEN1 4 80 
1 470 H-1:A*(U-P)«0:V«V+W(8):IFU>1 8+PTHEN 
V-V+450 

1 480 A* (U-P)-A* (U-P)-l 

1490 FORJ- 1 T024 : IFA$ (J )>-0THEN1 520 

1500 L-6:IFA*(J)>-6THENL»-A*(J) 

1510 V-V+W(L)-200* (L-1 ) * ( J<7 ) 

1520 NEXTJ : IFV>ETHENE-V:X-I 
1530 A*(U)-A*(U)-1 
1 540 IFH-1 THENA56 (U-P )-0 
1550 A%(U-P)-A%(U-P)+1 :NEXTI 
1560 IFKOR(QM-0)THEN1 700 
1570 D--9999 : FORI-1 T0QM:H»0 
1 580 U-Q% ( I ) :V«W(7)*U 

1590 A 56 ( U ) - A $ ( U ) + 1 :IFA$(U-Q)<1THEN1 610 
1600 H-1 :A*(U-Q)«0:V«V+W(8):IFU>18+QTHEN 
V-V+450 

1610 A5t(U-Q)-A5KU-Q)-1 
1 620 F0RJ-1T024: I F A % ( J )>-0THEN1 650 
1 630 L-6 : I F A 56 (J ) >-‘6THENL-“A$ (J ) 

1640 V-V+W(L)-200*(L«1 ) * ( J < 7 ) 

1650 NEXTJ : IFV>DTHEND-V : Y-I 
1 660 A%(U )-*A%(U ) — 1 
1670 IFH-1 THE N A 56 (U-Q)-O 
1 680 A56(U-Q)*A56(U-Q) + 1 :NEXTI 
1 690 QM-1 2 : IFD>ETHENPM-1 2 
1700 RETURN 

1710 X-PM :Y*QM: PM-SGN (PM) : QM-SGN ( QM ) 

1720 GOT01700 
1730 IFFMTHEN1780 
1740 P-FNA(6) :Q-FNA(6) :T«TI 
1750 IFTI-T>1 20THEN1 770 
1 760 P-P+1 : IFP>6THENP-1 
1 770 Q-Q+1 : 1 FQ> 6THENQ- 1 

1 780 PRINT" {HOME} (3 CUR . DES } " ; D$ ; " { WHITE 
}"A$(P);"{2 CUR . DES } { 2 CUR.SU}";A$( 
Q) 

1790 IFTI-T<41 0THEN1 750 
1800 RETURN 


1810 

REM 


1820 

PM-0:QM-0:FORI»1T024 


1 830 

IFA* (I ) >»0THEN1 900 


1840 

IFI-PC1 THEN1 870 


1 850 

IFAJt(I->P)>1THEN1 870 


1860 

PM-PM+ 1 :P$(PM)«I 


1 870 

IFK>OORI-Q<1 THEN1 900 


1 880 

IFA* (I-Q)>1THEN1 900 


1 890 

QM-QM+ 1 : Q% ( QM ) -I 


1 900 

NEXT: RETURN 


1910 

REM 


1 920 

B$«" {HOME} {3 CUR.GIU}" : W $ - " {CUR.GIU 


} {CUR.SIN}" :T-0:G0SUB2020 


1930 

B$-B$+D$+LEFT$(D$,8) :W$«" {CUR. 
U R . S I N } " 

SU } {C 

19^0 

T-1 : GOSUB2020 


1950 

PRINT" {HOME}" ; D$ ; SPC ( 2 1 ); 


1960 

IFBP-OTHENPRINTZ$: GOTO 1 9 80 


1970 

FORI-1 TOBP : PRINT" {CYAN } {SH Q} 
SIN }" ; : NEXT 

{CUR . 

1 980 

PRINT" {HOME}" ; D $ ; " { 2 CUR.GIU}" 
21 ) ; 

; S P C ( 

1 990 

IFBH-OTHENPRINTZ$: GOTO 201 0 


2000 

FORI- 1 TOBH : PRINT" {CYAN } {SH ' W} 
SIN } " ; : NEXT 

{CUR . 

2010 

RETURN 


2020 

FORI-1 T01 2 : V«T* (25“I )-I*(T«0) 


2030 

IFVONANDF>OTHEN21 1 0 


2040 

A $ * " " 


2050 

PRINTB$SPC(3*I-(I>6)-1); 


2060 

I FA $ ( V )-0THEN21 00 


2070 

K-209 : IFA$(V)>0THENK-21 5 


2080 

F0RJ«1T0ABS(A$(V ) ) 


2090 

PRINT" {CYAN}"CHR$(K) ; W$ ; : NEXT 


2100 

PR I NT A $ 


21 1 0 

NEXT : RETURN 


2120 

REM 


21 30 

PRINT" {HOME} "Z; Z$ ; Z$ ; Z$" {HOME} 
TURN 

" ; : RE 

21 40 

FORI-1 T02000 : NEXT 


2150 

RETURN 


21 60 

REM 


2170 

W $ * " { S H T} { C BM M} {CUR.GIU} {3 

CUR .S 


I N } { SH T} { C BM M} {CUR.GIU} {3 CUR. SI 


N } { SH T} {SH Y} {CUR.GIU} {3 CUR 

.SIN} 


{SH G} {SH H} {CUR.GIU} {3 CUR.SIN}{S 

H B} {SH -} {CUR.GIU} {3 CUR.SIN}{SH 
-} {SH B}{CUR.GIU}{3 CUR.SIN} {SH H} 


{SH G} {CUR.GIU} {3 CUR.SIN} {CBM M}{ 


BM 0} {CBM G}" 


2180 

PRINT" {CLR} {2 CUR.GIU}" : FORI-1 T021 

2190 

PRINT" {GREEN } {RVS ON } ";SPC(l8);" " 


; S P C ( 1 8 ) ; " " 


2200 

NE XT: PRINT" {HOME} {CUR.GIU}" :J« 
1 

65 : K- 

2210 

1 

GOSUB2280:GOSUB2280 


2220 

PRINT" " ; D$ ; LEFT$ (D$ , 9 ) : J-88 : K 

»-1 

2230 

G0SUB2280 : G0SUB2280 : PRINT" {HOME} {2 


CUR.GIU}" 



nel settore interno dell’av- 
versio usando il valore di al- 
meno uno dei due dadi tirati. 
Una volta che siete riusciti a 
portare tutte le pedine nel 
vostro settore interno, con 
il tiro dei dadi potete estrar- 
re le pedine dal tavoliere, 
oppure spostarle all’interno 
del settore stesso. Se il valo- 
re dello spostamento è tale 
da superare la lettera X, la 
pedina verrà estratta, altri- 
menti verrà semplicemente 
spostata airinterno del set- 
tore. 

Ancora un paio di cose: nel 
caso il tiro di due dadi sia un 
doppio, ad esempio 4 e 4, o 3 
e 3, esso vale doppio: con 3 e 
3 potrete quindi spostare 
quattro pedine di tre frecce, 
o la stessa pedina di dodici 
frecce. Per tirare i dadi è 
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sufficiente premere la barra 
spaziatrice e per muovere 
una pedina basta premere il 
tasto corrispondente alla 
lettera della freccia sulla 
quale si trova la pedina stes- 
sa. Poiché il calcolatore vi 
chiede sempre quale sia la 
mossa con il primo dado ti- 
rato, se desiderate muovere 
prima con il valore del se- 
condo dado, premete Z. Se 
premete Z due volte, signifi- 
ca che siete bloccati e non 
potete muovere alcuna pedi- 
na; in questo caso la mossa 
passerà al computer. Infine, 
se una delle vostre pedine è 
sulla barra, scegliete even- 
tualmente tramite il tasto Z 
con quale tiro rientrate e 
premete Y: la pedina sulla 
barra rientrerà in base al ti- 
ro visualizzato sullo 
schermo. 

Tratto da 

Super Commodore 8/’85 
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2240 GOSUB2300 : GOSUB2300 : PRINTD$ 

2250 W$="{CBM M } { CBM T}{CBM G}{CUR.GIU}{ 
3 CUR . SIN } { SH Y} {SH T } { CUR . GÌU } { 3 
CUR.SINHSH H} {SH G} {CUR. GIU} {3 CU 

R . SIN } { SH B} {SH ->} {CUR. GIU} {3 CUR. 
SI N } { SH G} {SH H} ICUR .GIU } { 3 CUR. SI 
N } { SH T} {SH YHCUR.GIU} {3 CUR. SIN} 
{SH T} {CBM M} {CUR. GIU} {3 CUR.SIN}{ 
BM G} {CBM M}" 

2260 GOSUB2300:GOSUB2300 

2270 PRINT" {HOME} { CUR . GIU } " ; D$ ; SPC ( 1 9 ) ; " 
{ RYS ON } { RED } Y { RVS OFF } { C Y AN } " : RETU 

RN 

2280 FORI-1 T06 : PRINT" {GREEN } {RVS ON } { 2 S 
PC}" ;CHR$( J) ; 

2290 J-J+K:NEXT: PRINT" " ; : R E T U R N 
2300 PRINT” {CUR . DES}" ; :F0RI-1T03 
2310 IFWZ<3THEN PRINT" {OR ANGE }"W$;U$; " {BL 
HE } " W$ ; U $ ; 

2320 IFWZ>-3THENPRINT" {BLUE}”W$;U$; " {ORA 
NGE}"W$;U$; 

2330 NEXT:WZ-WZ+1 : RETURN 
2340 REM 

2350 PRINT" {CLRJGRAZIE PER LA PARTITA! {C 
UR .GIU}” 

2360 PRINT" SEI UN BUON AVVERSARIO!" 

2370 PRINT" GIOCHI ANCORA? (S 0 N)" 

2380 A $ » " " : GET A $ : IFA$ = " "THEN2 380 
2390 IFA$-"S" THENRUN 
2400 END 
2410 REM 

2420 PRINT" {CLR } ACCIDENTI ! HO VINTO!! {CU 
R.GIU}" 

2430 PRINT "MI SONO PROPRIO DIVERTITO!" 
2440 G0TO2 370 
2450 REM 

2460 PRINT" {CLR }" ;TAB( 1 3) ; 

2470 PRINT" {RVS ON } { RED } BACKGAMMON { WHITE 
} {CUR .GIU}" 

2480 PRINT" IO GIOCO CON LE REGOLE STANDA 
RD CHE DEVI" 

2490 PRI NT "CONOSCE RE PRIMA DI INIZIARE A 
GIOCARE . {CUR .GIU}" 

2500 P R I N T " I TASTI CHE DEVI PREMERE SONO 
QUESTI: {CUR. GIU}" 

2510 PRINT" A-X PER MUOVERE LE PEDINE{CU 
R.GIU}" 

2520 PRINT" Y { 3 SPCjPER RIENTRARE DAL BA 
R{CUR .GIU}" 

2530 PRINT" Z { 3 SPC } PER MUOVERE IN ORDÌ N 
E INVERSO{CUR .GIU }" 

2540 PRINT" SPAZIO QUANDO RICHIESTO { CUR . 
GIU}" 

2550 PRINT" SE PREMI DUE VOLTE Z SALTI LA 
MOSSA. {CUR. GIU}" 

2560 PRINT "CIO' E' CONCESSO SOLO SE SEI 
BLOCCATO. {CUR. GIU}" 

2570 PRINT 
2580 GOTO240 


GAGGIA PITAGORICA 
(Tatoelline) 


Questo è un programma di- 
dattico camuffato da sempli- 
ce videogioco. Serve per ren- 
dere un po’ meno noioso il 
ripasso delle tabelline ad un 
ragazzino delle elementari. 
Si tratta infatti di una spe- 
cie di tiro al piattello con un 
piccolo carro armato al po- 
sto del fucile e con elicotteri 
al posto dei piattelli: le coor- 
dinate di tiro, l’altezza e la 
distanza, sono fornite 
dall’operatore con la solu- 
zione di moltiplicazioni di 
numeri con una sola cifra 
(dal 2 al 9), la tavola pitoga- 
rica classica. 


All’inizio compare sul video 
un piccolo carro armato che 
si sposta lungo una pista 
ruotando la torretta del can- 
none e, in alto, un piccolo 
elicottero che si muove, di 
solito in diagonale. Quando 
il carro armato tocca le pa- 
reti dell’area di gioco, a de- 
stra e a sinistra, inverte la 
direzione di marcia e torna 
indietro. Stessa cosa per 
l’elicottero, con la differen- 
za che quest’ultimo rimbal- 
za un po’ come una palla da 
biliardo quando colpisce le 
sponde, ma molto più ada- 
gio. 


10 VOL8:FORK»=0TO4 : READA , B : GOSUB30 : DRAW , 7 
, 3TOA ,B:SSHAPEA$(K) , 0 , 0 , 1 4 , 9 : NE XTK : GO 
T050 

20 DATA13,3,10,0,7,0,4,0,1 ,3 
30 GRAPHIC2 , 1 : BOX , 6 , 2 , 8 , 4 

4 0 DRAW, 2 ,5T01 2 ,5T01 3 ,6T01 3 ,8T01 2 ,9T02 , 9 
TO 1 , 8TO 1 ,6:DRAW,4,7T010,7:RETURN 
50 SCNCLR :SSHAPEY$ ,0 , 0,12, 1 2 : F0RI-2T06ST 
EP2:CIRCLE,6,6,I :NEXTI :SSHAPEX$., 0,0,1 
2,12 

60 SCNCLR : DRAW , 2 , 3T01 0 ,3:DRAW,6,4:CIRCLE 
,6,7,2:SSHAPEB$,0,0,12,12 
70 SCNCL R : M* 1 :A-0:B*0:U«0:C«150:F$ = TIME$ 
80 V* 1 50 : W*2 

90 DRAW,0 , 1 58T0 31 9 , 1 5 8 : X = I NT ( RN D ( 0 ) * 5" 2 ) 
:Y«INT(RND(0)*4):IFX«0ANDY»OTHEN90 
100 T=0 : IFABS (H- J ) >1 OOORABS (L-Q) >1 OOTHEN 
T-1 

1 1 0 CHAR ,0 ,0 ,STR$(T) : CHAR ,37,0,STR$(U)+" 
" : V-V+X: IFV<20RV>307THENX=-X:V*V- (V 
< 2 ) 


Il movimento dell’elicottero 
non si può manovrare, è 
sempre casuale. Quello del 
carro armato invece si può 
comandare: premendo un 
tasto qualsiasi, tranne l’a- 
sterisco (*) che prepara allo 
sparo e Run Stop che ferma 
il programma, il carro ar- 
mato inverte la direzione di 
marcia. Ad ogni inversione 
di marcia del carro armato, 
la direzione di moto dell’eli- 
cottero cambierà in modo 
casuale. 

In alto sullo schermo sono 
riportati due numeri: sulla 
sinistra un 1 quando l’eli- 
cottero è fuori tiro, che si 
trasforma in 0 non appena 
l’elicottero è a tiro; sulla de- 
stra il punteggio raggiunto. 
Quando l’elicottero è a tiro 
(0 in alto a sinistra) potete 
prepararvi per lo sparo. 
Premete il tasto con l’asteri- 
sco. Viene chiesta l’altezza e 
si dovrà rispondere dando il 
risultato della moltiplica- 
zione che si presenta in bas- 
so sullo schermo. Se il risul- 
tato è giusto e se avete ri- 
sposto in tempo (dieci se- 
condi), la torretta del carro 
armato verrà ruotata nella 
direzione dell’elicottero, al- 
trimenti dopo il risultato 
comparirà un punto inter- 
rogativo per indicare che 
avete commesso un errore, 
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oppure una T per indicare 
che avete lasciato scadere il 
tempo. Viene poi chiesta la 
distanza (solo nel caso di ri- 
sposta data per tempo) e 
questa volta il tiro colpirà 
l’elicottero se si è risposto 
esattamente, sennò andrà a 
vuoto. 

Il gioco dura cinque minuti 
e il punteggio viene calcola- 
to così: +1 per ogni risulta- 
to esatto, - 1 per ogni risul- 
tato sbagliato, -1 per supe- 
ramento del tempo massimo 
concesso, per la risposta, 
-1 per sparo quando l’eli- 
cottero è fuori tiro. 

Tratto da Bit n. 65, 

Ottobre 1985 
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120 N-lf*T:IFW<20RW>1 1 0THEHY--Y : W-W- (W<2 ) 

* (W>2 ) 

130 C-C+M4lFC<OORC>305THENM--M 
140 IFB-OTHENA-A+1 sELSEA-A-T 
150 B-B-(A>3)*(A<1 ) : IFVAL(tlME$)>VAL(F$) 
+50ÒTHEN PRINT :PRINT"TEMPO SCADUTO! P 
: " ; U : END 

1 60 GSHAPEA$ (A) , C , 1 48:H-RDOT(0) : L-RDOT ( 1 

) 

170 S0UND3,900,20:GSHAPEB$,V,W: J-RDOT(O) 
s Q-RDOT ( 1 ) 

180 GETZ$:IFZ$- W "THEH1 00 
190 IFZ$< > " * "THENM-j'M : GOTO 90 
200 PRINT : S0UND1 , 963 , 9 : E$- "ALTEZZA" : GOSU 
B320:IFR$- n T n THEH310 

210 G0SUB440:Z-INT( ( (ATN( (H-J)/(L-Q) ) + .5 
) + 2)*P) :0«P 
220 IFZ<0THENZ-0 
230 IFZ>4THENZ-4 

240 FORK- 1T010: SOUND 1 ,K*50,1 : NEXTK : GSHAP 
EA$ ( Z ) ,H,L-10:N-D 

2 50 E $«" DISTANZA" :GOSUB32 0 : IFR$»"T"THEN3 
10 

2 60 G0SUB-440:R-( J+4 )*0-H-5: IFABS(R)>1 OOT 
HENR-1 00*SGN(R) 

270 S»Q*P-L+5: IFABS(S)>1 OOTHENS-1 00*SGN( 
S) 

280 DRAW,H+7 , L-1 2T0 + R , +S-.DRAWO ,H + 7 ,L-1 2T 
0+R,+S: IFTTHEN PRINT" ! " ; 

290 F0RK-999T099STEP-20:S0UND1 ,K,1 :SOUND 
3,K, 1 : NEXTK:U-U-T 

300 IFNANDDANDT-OTHÉNGSHAPEX$ , J ,Q-1 3,0:G 
SHAPEY$ , J , Q-1 3,3: GOTO 80 : ELSE 1 30 
310 PRINTR$; sU-Ù“1 :G0T0100 
320 PRINT :E-INT(RND(0)*8+2) : F * I NT ( RND ( 0 ) 
*8+2) 

330 PRINTE$;E; " * " ;F ; " » " ; : R$- " " : G-0 : GOTO 
350 

340 IFE$OTIME$THENSOUND1 , 900 , 4 : ELSE360 
350 E$-TIME$:G-G+1 : I FG> 1 OTHE.N R $ - " T " : RETU 
RN 

360 GETZ$:IFZ$-" " THEN340 
370 IFZ$-CHR$(1 31THEN420 

380 IFZ$-CHR$ ( 20)ANDR$O""THENR$-LEFT$(R 
$,LEN(R$)“1 ) : G0T04 1 0 
390 IFZ$<" 0" ORZ$> n 9" THEN360 
400 R$-R$+Z$ 

410 PRINTZ$ ; :GOTO360 

420 P*VAL(R$ )/ (E*F ) : R$-STR$ ( ABS ( (E*F)«VA 

L ( R$ ) ) ) 

430 RETURN 

440 D-VAL(R$ ) :U-U+D*2-1 : IFD-OTHENPRINT" ? 

»i . ' 

450 RETURN 


NEW YORK 


IO 

REM 

NEW YORK 



20 

COLORO 

, 2 : COLOR 4 ,2,3 



30 

A «RND ( ■ 

-TI ) :TI$-"000000" :TB= 

-TI : 

PU-1 00 

40 

PRINT" 

{CLR } {BLUE } { 6 CBM + } 

{SH 

-} {22 


CBM + 

} {SH -} {6 CBM +}"; 



50 

PRINT" 

{6 CBM + } A { SH -} {22 

CBM 

+ } B { SH 


(6 

CBM +}"; 



60 

PRINT" 

{7 SPC } { SH -} C { 5 SPC } {CBM R} D 


{5 SPC 

} { CBM R} E { 6 SPC } { SH 

-} 

F { 5 SPC 

70 

PRINT" 

{7 SH C} {SH + } {7 SH 

C} {SH +} {7 


SH C}( 

SH + } {8 SH C} {SH +} { 

7 SH 

C } " ; 

80 

PRINT" 

{5 SPC } G {SH -} {5 SPC } H 

{SH -}{ 


5 SPC} 

I {SH - } { 6 SPC}J {SH 

-}{ 

7 SPC}" 

90 

PRINT" 

{6 CBM +} {SH - } K { 5 

CBM 

+ } {SH 


-}L{5 

CBM +} {SH - } M { 6 CBM 

+ } 

{SH -» } N 


{6 CBM 




100 

A$«"{ 

6 CBM + } {SH -} {5 CBM + 

} {SH - 


} 15 

CBM + } {SH -} {6 CBM 

+ } 

{SH -} 


{6 CBM +•}" :PRINTA$A$A$; 



1 10 

PRINT 

"{6 CBM + } 0 { SH {5 

CBÙ 

+ } P { SH 


{ 

5 CBM + } Q { SH -} {6 C 

BM + 

} R { SH - 


}’ (6 

CBM +}"; 



1 20 

PRINT 

"{6 CBM + } {SH -} S{ 

5 SPC} {SH - 


} T { 5 

SPC } { SH -} U { 6 SPC} 

{SH 

7 } {6 C 


BM +} 

ii . 



130 

' PRINT 

" {6 CBM + } {CBM Q} {SH 

+ } { 

7 SH C} 


{SH + 

} {7 SH C} {SH +} {8 SH 

C}{ 

SH +} {C 


BM W} 

{6 CBM +}"; 



1 40 

i PRINT 

"{6 CBM +} {SH -} {5 

SPC} 

V {SH - 


} {5 SPC}W {SH -} {6 SPC}X 

{SH 

-} {6 C 


BM +} 

» ; 



1 50 

i PRINT 

"{6 CBM +} {SH - } Y { 5 

CBM 

+ } {SH 


Un gioco per chi ha una buo- 
na capacità di organizzarsi 
e prontezza di decisioni an- 
che in situazioni piuttosto 
ingarbugliate. 

Questo originale e diverten- 
te gioco vi permette di os- 
servare una grande città, co- 
me potrebbe essere New 
York, dall’elicottero e di re- 
golarne il traffico. All’inizio 
vedrete tutte le strade deser- 
te, ma poco per volta esse si 
popoleranno di automobili. 
Il vostro compito sarà quel- 
lo di dirigere efficacemente 
il caotico traffico della me- 
tropoli. Quando un’automo- 
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bile, rappresentata da un 
rettangolino nero, raggiun- 
ge uno dei semafori, raffigu- 
rati invece da lettere e nu- 
meri, si ferma se il semaforo 
è rosso, oppure attraversa 
l’incrocio se il semaforo è 
verde. Per modificare il colo- 
re del semaforo dovete pre- 
mere il tasto corrisponden- 
te al simbolo cbe lo rappre- 
senta. 

Per chi avesse un televisore 
in bianco e nero, il rosso ap- 
pare leggermente più scuro 
del verde. In tal modo, il gio- 
co potrà essere giocato an- 
che con un monitor in bian- 
co e nero. 

All’inizio del gioco avete 
100 punti. Guadagnate 10 
punti ogni volta che un vei- 
colo passa attraverso un in- 
crocio e 25 punti se un’auto- 
mobile attraversa tutta la 
città. Se due vetture si scon- 
trano ad un incrocio, perde- 
te 100 punti e la strada ri- 
mane temporaneamente 
bloccata. Il vostro punteggio 
diminuisce anche in propor- 
zione al numero di auto fer- 
me in coda ai semafori. Se 
restate con zero punti, la 
partita ha termine, altri- 
menti il gioco dura cinque 
minuti. 

I semafori non reagiscono i- 
stantaneamente alla pres- 
sione dei tasti. Proprio come 
farebbero dei semafori veri, 
28 


7 } Z { 5 CBM +} {SH - } 0 { 6 CBM + } {SH - 
} 1 { 6 CBM + } » ; 

160 PRINTA$A$A$ 

170 PRINT "{6 CBM +}2{SH -} {5 CBM +}3{SH 

7 } {5 CBM + } 4 { SH -} {6 CBM +}5{SH - 

}' {6 CBM + }" ; 

180 PRINT" {7 SPC } { SH -} 6 { 5 SPC}{SH -} 7 
{5 SPC } { SH -} 8 { 6 SPC } { SH -} 9{5 SPC 
}" ; 

190 PRINT” {7 SH C } { SH +}{7 SH C}{SH + }{7 
SH C } { SH + } { 8 SH C } { SH +}{7 SH C } " ; 
200 PRINT” {5 SPC}+ {SH -}{5 SPC}\ {CBM E 
} { 5 SPC}@ {CBM E } { 6 SPC}* {SH -}{7 S 
PC}» ; 

210 PRINT " {6 CBM +} {SH - } - { 2 2 CBM +} {S 
H -}-{6 CBM +}"; 

220 PRINT ” {6 CBM +} {SH -} {22 CBM +} {S 

H - } {6 CBM +}"; 

230 PRINT " {6 CBM +} {SH - } {22 CBM +} {S 

H - } {6 CBM +} {HOME}" ; 

240 AW-40 :SC5t-3071 : CL-2047 
250 DIMXJt(AW) , Y £ ( A W ) ,R*(AW),L*(41),A*(3) 
,F*(9) 

260 FORI-0TO41 : READL$ (I ) : NEXT 
270 DATA 47 ,72 ,90,98,106,115,166,174,182, 
191,209,217,225,234,367,375,383,392 
280 DATA41 0,418,426,494,502,51 1,529,537, 
545,554,687,695,703,712 
290 DATA730,738,746,755 
300 DAT A 80 6 , 8 1 4, 8 2 2, 831 ,8 49,874 
310 F0RI-0T041 :A«PEEK(L$(I) + SC$):POKEL$( 
I )+SCf , A0R1 28 
320 POKEL/t(I )+CL ,50: NEXT 
330 A*(0)-1:A*(1)--1:A*(2)-40:A*(3)-- i »0 
340 DEFFNR(X)-INT(RND(1 )*X) 

350 FORI-OTOAW:R*-R* (I ):IFR*-0THEN450 
360 X*-X*(I) s Y%-Y% ( I ) 

370 IFR$AND1 THENXJ-X/t+1 : FJf-98 : 00 $-226 : 0$ 
-6 4 :S$-40: IFX$ > 40THEN480 
380 IFR$AND2THENX$-X$-1 : F$»226 : 00$«98 : 0 % 
-64 :S$--40: IFXJU1 THEN480 
390 IFR*ANDÌlTHENY>-Y*+1:F*-97:00*«225:0f 
— 93 :S% — — 1 : IFY$>23THEN480 
400 IFR$AND8THENY$»Y$-1:F$»225:00$-97:0$ 
-9 3 :S$«1 : IFY5U0THÉN480 
410 IFR$AND1 6THEN460 
420 IFRUND32THEN570 

4 30 IFR$AND64THENO$*91 :R$-R$-64:R$(I)=R$ 

: PU-PU+1 0 
440 GOTO 4 90 
450 NEXT : G0T06 6 0 

460 IF(PEEK(X$(I )+40*Y$(I )+S$+CL)AND1 5 )< 
>2THENR$ ( I )- (R560R32 )ANDN0T1 6 : GOTO 4 90 
470 PU-PU-1 : GOTO 4 5 0 

480 PU-PU + 25 : PN-PN+1 :R$(I)-0:P$--*1 : GOTO 5 
40 

490 P$-X$+40*Y$ : PS$=PEEK(P$+SC$ ) : I FPS $ = F 
%ORPS%=- 1 60THENPU-PU-1 :GOTO450 
500 A*PEEK(P$+S$+SC$ ) : I FA< >32THENR % ( I )«R 
$0R1 6 


510 IFPS56 = 00$THENF$=1 60 

5 20 V$ = PEEK(X$(I) + 40*Y/6(I)+SC/t) :IFV>6*1 60 
THENO$=O0$ 

530 IFVJ* 1 02THENR$ (I ) *0 : A0*A0+ 1 :PU«PU-10 
0 : GOTO 4 50 

540 POKEP$+SC% , F $ : POKEP$+CL ,0 
5 50 IF0/6~640R0/t«=930R0/6 = 91THENP0KEX!t( I ) + 4 
0#Y$(I)+.CL,70 

5 60 POKEX $ ( I ) + 40 * Y $ ( I )-»-SC%,0%:X%(I)*X%:Y 

%(I) — Y%: G0T04 50 

570 P^ = X56+40*Y$ : A = PEEK( P $ + SC $ ) : IFA*F$THE 
N 4 50 

580 IFA<>91 THEN640 

590 VB=0:FORJ«0TO3:A*2+J: B- P EEK ( P % + SC % 

+ A % ( J ) ) : IFNOT (B-640RB-93 )THENVB-VBOR 
A 

600 NEXT 

610 B-2+FNR (4 ) : IF (BANDVB )*OTHENR$ ( I )«B 
OR64 : G0T0540 
620 IFVB-1 5THEN450 
630 GOT0610 

6 40 AO-AO+1 : RJ ( I ) *0 : IFA< >1 0 2THENF Jt (AF )*P 

%: AF-AF+1 :PU-PU-100 
650 F$= 1 02 : G0T0540 
660 IFR*(TL)-0THEN690 
670 TL-TL+ 1 : IFTL>AWTHENTL*0 
680 G0T0780 

690 A=FNR(4):R*(TL)«2+A:ONA+1 GOTO 700 , 7 
1 0,720,730 

700 X.% (TL ) * 1 : G0T07 40 

710 X*(TL)»40:G0TO740 

720 Yy6(TL)*0:G0T0760 

730 Y* (TL)=23:G0T0760 

740 IFFNR(2)«1THENY* (TL)-3: GOTO 7 80 

750 Y/t(TL)*19:GOTO780 

760 IFFNR(2)»1 THENX5KTL )-8 : GOTO780 

770 X$ (TL ) * 3 3 : G0T07 80 

780 GETA$ : IFA$*" "THEN870 

790 4 A»ASC(A$): IFA>64ANDA<9 1 THE N A- A- 6 5 : GO 

' T0880 

800 IFA>47ANDA<58THENA»A-22: GOTO 88 0 

810 IFA-43THENA-36 :GOT08&0 

820 IFA-92THENA*37 : GOTO880 

830 IFA-64THENA-38 : GOTO880 

840 IFA-42THENA*39 : GOTO880 

850 IFA-45THENA-40 :GOTO880 

860 I F A- 6 1 THE N A* 4 1 :G0T0880 

870 GOT0920 

880 P*«L*(A):A«PEEK(P$+CL):IF(AAND15)-2T 
HENA-69 :GOT0900 
890 A-2 

900 POKEP 56 + CL , A 
910 GOTO780 
920 REM 

930 PRINT" {HOME } { 22 CUR.GIU}{RVS ON } {BLA 
CK}"SPC(18)MID$(TI$,4,1 )" : "RIGHT$ (TI 
$,2)"(H0ME}" 

940 IFPIKOTHENPU-O 

950 PRINT" {HOME} {RVS ON } { BLACK } "SPC( 1 8 ) R 
IGHT$("{3 SPC}" +STR$(PU) ,4) 


prima di passare dal rosso 
al verde e viceversa richie- 
dono un certo tempo. Se due 
semafori si trovano ad esse- 
re contemporaneamente 
aperti ad un incrocio, si può 
correre il rischio di bloccare 
irrimediabilmente il traffico 
su quella strada. Basta infat- 
ti che due auto superino en- 
trambe il loro semaforo su 
questo incrocio e, se devono 
svoltare, resteranno ad a- 
spettare che l’altra macchi- 
na si sposti per proseguire. 
Quando succede questo, non 
c’è rimedio, avete combinato 
un pasticcio. La miglior tec- 
nica per evitare ingorghi di 
traffico e incidenti è quella 
di aprire un semaforo per 
volta all’arrivo di una mac- 
china sull’incrocio e poi ri- 
chiuderlo appena la macchi- 
na è passata. Naturalmente 
la cosa è facile finché le 
macchine sono poche, poi 
diventa sempre più difficile. 
Fortunatamente però le au- 
to che provengono dalla 
parte sinistra dello schermo 
hanno la tendenza a restare 
nel loro settore, e così quelle 
che provengono da destra. Il 
gioco si può anche giocare 
in due, se si vuole: basta 
spartirsi i settori da con- 
trollare. Un gioco semplice, 
ma che una volta capito ap- 
passiona. 

Tratto da PapertSoft 34/’85 
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960 I FPU*0THEN 1 01 0 
970 IFFNR(25)0RF$(0)«0THEN990 
980 P0KEF*(0)+SC*,91 : F0RI-0T08 : F% ( I )-F$ ( 
1+ 1 ) : NEXT : AF*AF- 1 
990 IFTI-TB>1 8E3THEN1 01 0 
1000 G0T0350 

1 Ò 1 0 PRINT" {HOME} {7 CUR.GIU}{RVS ON}{D.B 
LUE } { 6 CUR.DES}{M SPC}F I N E { 4 SPC 
}G I 0 C OH SPC}” sFORI-1 TOMOOO:NEX 
T 

1020 IFPU>OTHENPRINT" {CLR} {CUR.GIU} CE L 
'HAI FATTA! HAI OTTENUTO " ; PU PUNT I 
" : G 0 T 0 1 050 

1 030 PRINT" {CLR} {CUR.GIU} PESSIMO!, NON S 
EI RIUSCITO A DIRIGERE" 

1 OMO PRINT" IL TRAFFICO NEANCHE PER 5 MI 
NUTI ." 

1050 PRINT" {2 CUR.GIU} { RVS 0N}{GREEN}{9 
CUR . DES } GIOCHI ANCORA (S/N)?" 

1 060 &E-T A$ : IFA$~"S" THENRUN 
1070 IFA$»"N"THENEND 
1 080 GOT0 1 060 


Guida all’input CI 6 


Norme per la 

battitura 

I caratteri grafici, ottenuti: 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 
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TABELLA DI CONVERSIONE 


{HOME } HOME 

{CLR} . PULIZIA SCHERMO 

{CUR.SU} CURSORE IN ALTO 

{CUR.GIU} CURSORE IN BASSO 

{CUR. DES} CURSORE A DESTRA 

{CUR. SIN} CURSORE A SINISTRA 

{SPC} SPAZIO 

{ RVS ON } REVERSE ON 

{ RVS OFF } REVERSE OFF 

{FLASH ON } FLASH ON 

{FLASH OFF } . . . . FLASH OFF 

{ INST } INSERT 

{BLACK} COL. NERO (CTRL+1) 

{WHITE} COL. BIANCO (CTRL + 2) 

{RED} COL. ROSSO (CTRL + 3) 

{ C Y AN } COL. CIANO (CTRL+M) 

{PURPLE} COL. PORPORA (CTRL + 5) 

.{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL + 70 

{YELLOW} COL. GIALLO (CTRL + 8) 

{ORANGE} COL. ARANCIO (CBM+1) 

{BROWN}. COL.. MARRONE. (CBM+2) 

{YL-GREEN} .COL. GIALLO-VERDE (CBM+3) 

{ P I NK } COL. ROSA (CBM+M) 

{ BL'-GRN } .COL. BLU-VERDE (CBM + 5) 

{ LT . BLUE } COL. BLU CHIARO (CBM + 6) 

{ D . BLUE } COL. BLU SCURO (CBM + 7) 

{LT. GREEN} COL. VERDE CHIARO (CBM + 8) 


3D COLOR MAZE 


20 DIMA$(27) , P ( 8 , 2 ) 

50 GOT07000 
100 G0SUB1 000 

110 CHAR , 1 2 ,22 , " {RVS 0N}TEMP0 »:PRINTLEF 
T$(TI$ ,2)» : "MID$(TI$,3,2)" : "MID$(TI$ 
,5 ,2)'» {RVS OFF}» 

1 30 G E T B $ : I F B $ <>» {CUR.SIN }»ANDB$<>» {CUR. 

SU}»ANDB$<>»{CUR.DES}»THEN1 10 
140 IFB$«" {CUR .SU } "THEN200 
150 IFB$«» {CUR.DES}»THEND-D+1 
160 I F B $ - » {CUR .SIN } "THEND-D-1 
170 IFD>7THEND-4 
180 IFD< 2THEND-5 
190 GOTOIOO 

200 IFASC(MID$(A$(U+P(D,1 )) f V+P(D,2)))-6 
5THEN1 10 

210 U-U + P (D , 1 ) :V-V+P(D,2) : GOTOIOO 
1 000 PRINT» {CLR}" :FX-P (D, 1 ) : F Y- P ( D , 2 ) : LX 
-P ( D- 1 ,1 ):LY-P(D-1 ,2) 

1010 X-U : Y-V : GOSUB9000 
1020 0NHHG0SUB2000 , 21 30 
1030 G0SUB9 1 00 
1040 0NHHG0SUB201 0 , 21 40 
1050 X-X+FX: Y-Y+FY 

1 0 60 IFMID$(A$(X) , Y , 1 ) - " A " THENHH- 1 - ( X-P 1 
ANDY-Q1 ) :0NHHG0T03000, 3030 
1070 GOSUB9000 : ONHHGOSUB2020 ,2150 
1080 G0SUB91 00:ONHHGOSUB2030,21 60 
1090 X-X+FX: Y-Y+FY 

1100 IFMID$(A$(X) ,Y,1 )-"A"THENHH-1- (X-P1 
ANDY-Q1 ) : ONHHGOTO3060 , 3090 
1110 GOSUB9000:0NHHGOSUB2040,21 70 
1120 G0SUB91 00:ONHHGOSUB2050, 21 80 
1130 X-X+FX: Y-Y+FY 

1140 I FMI D$ ( A $ ( X ) , Y , 1 ) - » A » THENHH- 1 7 ( X- P 1 
ANDX-Q1 ):ONHHGOTO3120,3150 
1150 GOSUB9000 : ONHHGOSUB20 60 , 21 9.0 
1160 GOSUB9100:ONHHGOSUB2070,2200 
1 1 70 X-X+FX: Y-Y+FY 

1 1 80 IFMID$(A$(X) , Y, 1 )-»A»THENHH-1- (X-P1 
ANDY-Q1 ):ONHHGOT03180,3210 
1190 GQSUB9000:0NHHG0SUB2080,2210 


Siete imprigionati in un la- 
birinto e dovete uscirne pri- 
ma che il tempo a disposi- 
zione finisca. Si tratta di un 
labirinto classico, con corri- 
doi, alte siepi che non vi 
permettono di vedere al di 
là, muri, strade senza via 
d’uscita, vicoli ciechi. Uscir- 
ne non sarà facile, ma il pro- 
gramma vi aiuta dicendovi 
ad ogni passo (al livello 
Principianti) o saltuaria- 
mente (al livello Esperto) la 
distanza a cui si trova l’usci- 
ta. Tale distanza è calcolata 
in linea d’aria. Non stupite- 
vi quindi se, ad un certo 
punto, dopo essere diminui- 
ta di molto, la vedrete di 
nuovo aumentare, senza che 
nelle vicinanze possiate ve- 
dere alcuna via d’uscita. 
Probabillmente l’uscita si 
trova al di là del muro e do- 
vrete semplicemnte aggira- 
re l’ostacolo. L’uscita si ri- 
conosce subito: quando ve- 
drete un muro a quadretti ci 
siete. Continuate dritto e 
sbucherete all’esterno. Però, 
vista in distanza, anche l’u- 
scita appare come gli altri 
muri e non la vedrete per 
quello che realmente è se 
non quando vi sarete avvici- 
nati a sufficienza. 
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1200 G0SUB91 00 :ONHHGOSUB2090 , 2220 
.1210 X-X + FX: Y-Y + FY 

1220 IFMID$(A$(X) f Y,1 )-"A"THENHH*1 - (X=P1 
ANDY-Q1 ) :0NHHG0T032M0, 3270 
1230 G0SUB9000 : 0NHHG0SUB21 00 , 2230 
1240 G0SUB91 00:ONHHGOSUB21 10,2240 
1 250 HH- ASC (MID$ (A$ (X+FX) , Y+FY ) )^64 
1260 0NHHG0SUB2250,21 20 

1410 CHAR, 12, 22, "{RVS 0N}TEMP0 " : PRINTLE 
FT$(TI$,2)" : "MID$(TI$,3,2)" : "MID$(T 
I$,5,2)"{RVS OFF}” 

1420 IFLV-1ANDVAL(TI$)>»300THEN4000 
1430 IFVAL(TI$)>-500THEN4000 
1440 IFU-PIpl ANDV-Q1THEN4500 
1450 IFLV-1 ANDRND(0)>.5THEN1 480 
1460 CHAR, 7,20, "{ RED } DISTANZA DALL’USCIT 
A " : PRINTINT ( ABS (U-P1 ) + ABS (V-Q1 ) )" { 
BLACK}" 

1480 RETURN 

2000 CHAR,9,0,"{SH M } " : CHAR , 9 , 1 8 , " { SH N} 
" : RETURN 

2010 CHAR , 28 , 0 , " { SH N } " : CHAR , 28 , 1 8 , " {SH 
M}" : RETURN 

2020 CHAR, 10,1 ,"{SH M } " : CHA R , 1 1 , 2 , " { SH M 
} " : CHAR , 1 0 , 1 7 , " { SH N } " : CHAR, 11 , 1 6 , " 
{SH N}" rRETURN 

2030 CHAR', 27,1 , " { SH N } " : CHAR , 2 6 , 2 , " { SH N 
}":CHAR,27,17," {SH M} " : CHAR , 26 , 1 6 , " 
{SH M } " : RETURN 

2040 CHAR , 1 2 , 3 > w {SH M } " : CHAR , 1 3 , 4 , » { SH M 
}":CHAR,12,15."{SH N } M : CHAR , 1 3 , 1 4 , " 
{SH N}":RETURN 

2050 CHAR, 25, 3, "{SH N } " : CHAR , 24 , 4 , " { SH N 
}":CHAR,25,15,"{SH M } " : CHAR , 2 4 , 1 4," 
{SH M } " : RETURN 

2060 CHAR, 14, 5, "{SH M } " : CHAR , 1 5 , 6 , " { SH M 
}":CHAR,14,13,"{SH N } " : CHAR , 1 5 , 1 2 , " 
{SH N } " : RETURN 

2070 CHAR, 23, 5, "{SH N } " : CHAR , 22 , 6 , " { SH N 
}" :CHAR,22,12,"{SH M } " : CHAR , 2 3 , 1 3," 
{SH M } " : RETURN 

2080 CHAR, 16, 7, "{SH M } " : CHAR , 1 6 , 1 1 , " { SH 
N}" : RETURN 

2090 CHAR, 21 ,7, "{SH N } " : CH AR , 2 1 , 1 1 , " { SH 
M}" : RETURN 

2100 CHAR, 17, 8, "{SH M } " : CHAR , 1 7 , 1 0 , " { SH 
N}" : RETURN 

2110 CHAR, 20, 8, "{SH N } " : CHAR , 20 , 1 0 , " { SH 
M}" -.RETURN 

2120 CHAR , 1 7 , 9 , " { CBM N }{ GREEN }{ RVS 0N}{2 
SPC } { RVS OFF} {BLACK} {CBM H}":RETUR 
N % 

2130 CHAR, 9,0, "{CBM P } " : CHA R , 9 , 1 8 , " { C BM 
Y}" : RETURN 

2140 CHAR, 28,0, "{CBM P } " : CHAR , 28 , 1 8 , " { CB 
M Y}":RETURN 

2150 CHAR, 9,1 ,"{CBM N } " : CHA R , 9 , 2 , " { C BM N 
} { 2 CBM P}" :F0RJJ-3T01 5 :CHAR , 9 , JJ , " 
{CBM N } { RVS ON} {PURPLE} {2 SPC}{RVS 
OFF} { B L A OK } " : NEXT 

2155 CHAR, 9, 16, "{CBM N}{2 CBM Y}":CHAR,9 
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,17, "{CBM N}":RETURN 

2160 CHAR ,28,1 , " { CBM H } " : CHA R , 2 6 , 2 , " { 2 C 
BM P } {CBM H}" :F0RJJ»3T01 5:CHAR,26 , J 
J , " { RVS ON } {PURPLE} {2 SPC }{ BLACK }{ R 
VS OFF } { CBM H } " : NE XT 

2165 CHAR, 26, 16, "{’2 CBM Y}{CBM H } " : CHAR , 
28, 17, "{CBM H}":RETURN 
2170 C HA R , 1 1 ,3»" {CBM N } " : CHAR , 1 1 , 4 , " { CBM 
N } { 2 CBM P}" :F0RJJ-5T01 3:CHAR, 1 1 , J 
J , " { CBM N } {RVS 0N}{CYAN}{2 SPC}{RVS 
OFF} {BLACK}" : NEXT 

2175 CHAR , 1 1 , 1 4 , " {CBM N } { 2 CBM Y}":CHAR, 

11.15, " {CBM N } " : RETURN 

2180 CHAR, 26, 3, "{CBM H } " : CH A R , 2 4 , 4 , " { 2 C 
BM P } { CBM H}":F0RJJ-5T013:CHAR,24,J 
J , " { R V S ON}{CYAN}{2 SPC}{RVS OFF}{B 
LACK} {CBM H } " : NEXT 

2185 CHAR, 24, 14, "{2 CBM Y}{CBM H}":CHAR, 

26. 15, "{CBM H}" : RETURN 

2190 CHAR, 13, 5, "{CBM N } " : CH A R , 1 3 , 6 , " { CBM 
N } { 2 CBM P}" :F0RJJ-7T01 1 :CHAR, 1 3 , J 
J , " { CBM N } { RVS ON } { BRO WN } {2 SPC}{RV 
S OFF} { BLACK } " : NEXT 

2195 CHAR, 13, 12, "{CBM N } { 2 CBM Y}":CHAR, 

13. 13, "{CBM N}":RETURN 

2200 CHAR, 24,5, "{CBM H } " : CH A R , 2 2 , 6 , " { 2 C 
BM P } { CBM H}":F0RJJ*7T01 1 :CHAR,22,J 
J , " { R V S ON } { BROWN } { 2 SPC}{RVS OFF}{ 
BLACK} {CBM H}" : NEXT 

2205 CHAR , 22 , 1 2 , " {2 CBM Y}{C.BM H}":CHAR, 

24.1 3, "{CBM H}" : RETURN 

2210 CHAR , 1 5 , 7 , " {CBM N}{CBM P}":F0RJJ-8T 
0 1 0 : C H A R , 1 5,JJ,"{CBM N}{RVS ON}{BLU 
E} {RVS OFF} {BLACK}":NEXT:CHAR, 15,1 
1 , " { C B M N } { C BM Y}": RETURN 
2220 CHAR, 21 ,7, "{CBM P}{CBM H}":F0RJJ«8T 
010:CHAR,21 ,JJ,"{RVS ON}{BLUE} {RVS 
OFF} {BLACK} {CBM H}" : NE XT : CH A R , 2 1 , 1 
1 , " { C BM Y } { CBM H}": RETURN 
2230 CHAR, 16, 8, "{CBM N}{CBM P}":CHAR,l6, 
9, "{CBM N } { RVS ONHCYAN} {RVS OFF}{ 
BLACK}" :CHAR, 1 6 , 1 0," {CBM N}{CBM Y}" 

: RETURN 

2240 CHAR, 20, 8, "{CBM P}{CBM H}":CHAR,20, 
9, "{RVS ONHCYAN} {RVS OFF}{BLACK}{ 
CBM H}":CHAR,20,10,"{CBM Y}{CBM H}" 
: RETURN 

2250 CHAR, 18, 8, "{2 CBM P } " : CH A R , 1 8 , 9 , " { R 
VS ON } { C YAN } { 2 SPC}{R VS OFF } {BLACK} 
":CHAR,18,10,"{2 CBM Y}":RETURN 
3000 CHAR , 1 0 ,0 , " { 1 8 CBM P } " : FOR J J- 1 T0 1 7 
3010 CHAR, 10, JJ, "{RVS ON } { OR ANGE } { 1 8 SPC 
}" : NEXT 

3020 CHAR,10,18,"{BLACK}{RVS OF F } { 1 8 CBM 
Y} " : GOT0 1 410 

3030 FORJJ-1 T01 7 : CHAR , 1 0 , JJ , " { RVS ON } { RE 
D } { 1 8 SH Z}" : NEXT : PRINT" {BLACK} ": GO 
T01410 v 

3060 CHAR, 1 2,2," {1 4 CBM P } " : FOR J J- 3T0 1 5 : 
CHAR, 12, JJ, "{RVS ON } {PURPLE} { 1 4 SPC 
} " : NEXT 


Come si è detto, al livello 
Principiante viene in conti- 
nuazione indicata la distan- 
za dall’uscita. Ciò è di molto 
aiuto. Inoltre a questo livel- 
lo si hanno cinque minuti di 
tempo per uscire dal labi- 
rinto. Quando sarete riusciti 
ad impratichirvi abbastanza 
del gioco, potrete passare a 
livello Esperto. Qui il tempo 
a disposizione è ridotto a 3 
minuti soltanto e vi man- 
cheranno le indicazioni sul- 
la distanza dell’uscita pro- 
prio quando potreste senti- 
re maggiormente il bisogno, 
cioè nei pressi di un incro- 
cio o di una svolta della 
strada. 

Non crediate di potervi im- 
parare a memoria lo schema 
del labirinto per po.terneve- 
ne poi servire in seguito: il 
programma ne inventa ogni 
volta uno nuovo. Quindi inu- 
tile srotolare il classico filo 
di Arianna... 

I colori rendono il gioco più 
interessante. Se avete buone 
capacità di orientamento 
non dovreste faticare molto 
a trovare l’uscita. Per muo- 
versi all’interno del labirin- 
to usate i tasti per lo sposta- 
mento del cursore: quello 
con la freccia verso l’alto 
per andare avanti, quello 
con la freccia verso sinistra 
per andare a sinistra, quello 
con la freccia verso destra 
per andare a destra. Àuguri! 
Tratto dall’archivio della Ja- 
ckson. 


33 


3070 PRINT" {RVS OFF } { BLACK } " s CHAR , 1 2 , 1 6 , 
"{14 CBM Y } " : G0T01 4 1 0 
3090 F0RJJ-3T015:CHAR,12,JJ,"{RVS ON}{RE 
D } { 1 4 SH Z}" : NEXT : PRINT" {RVS OFF}{B 
LACK } " : G0T01 4 1 0 

3120 CHAR, 14, 4, "{10 CBM P } " : FOR J J- 5T0 1 3 : 
CHAR, 14, JJ, «{RVS 0NHCYANH10 SPC}« 
: NEXT 

3130 PRINT” {RVS OFF} {BLACK}" : CHAR , 1 4 , 1 4 , 
"{10 CBM Y } " : GOT0 1 4 1 0 
3150 F0RJJ-5T013:CHAR,14,JJ,"{RVS 0N}{RE 
D } { 1 0 SH Z}" :NEXT:PRINT" {RVS OFF}{B 
LACK } " : GOT0 1 4 1 0 

3180 CHAR, 16, 6, "{6 CBM P } " : FOR J J-7T01 1 : C 
HAR ,1 6 , J J , " { RVS 0N}{BR0WN}{6 SPC}{R 
VS OFF } " : NEXT 

3190 PRINT" {RVS OFF } { BLAC K } " : CHA R , 1 6 , 1 2 , 
"{6 CBM Y } " : G0T01 4 1 0 

3210 F0RJJ-7T01 1 :CHAR,16,JJ," {RVS ON}{RE 
D } { 6 SH Z}" :NEXT :PRINT" {RVS OFF } { BL 
ACK } " : G0T01 4 1 0 

3240 CHAR, 17, 7, "{4 CBM P } " : FOR J J- 8T0 1 0 : C 
HAR, 17, JJ, "{RVS ON } { BLUE } { 4 SPC}":N 
EXT 

3250 PRINT" {RVS OFF }{ BLACK }": CHAR , 1 7 , 1 1 , 
"{4 CBM Y } " : GOT0 1 4 1 0 

3270 F0RJJ-8T01 0:CHAR, 1 7 ,JJ , " {RVS ON}{RE 
D } { 4 SH Z}" :NEXT:PRINT" {RVS OFF } { BL 
ACK}": GOTO 1 4 1 0 

4000 CHAR, 12, 23, "{RVS ON } {FLASH ONjTEMPO 
{2 SPCjSCADUTO" 

4010 V0L8 : SOUND 1 , 200 , 1 60 : F0RI-7T02STEP- 1 
4020 VOLI :F0RJ-1T050 : NEXT: NEXT: F0RK-1TÒ2 
000 : NEXT 

4030 CHAR, 9, 23, "{RVS ON }{ BLACK } GIOCHI AN 
CORA? (S/N)" :PRINT 
4040 GETZ$:IFZ$-"S"THEN7500 
4050 IFZ$<>"N"THEN4040 
4060 PRINT" {CLR}" :END 

4500 CHAR,6,20,"{DiBLUE}BRAV0 HAI TROVAT 

0 L'USCITA! " :FORK«1T010 

4510 V0L8:F0RI-4T08:F0RJ-300T0500STEP1 00 
:S0UND2,J,2:NEXT 

4520 COLORO, I : COLOR 4 , 1 + 8 : NEXT I , K 

4530 COLOR4,l6,6:COLORO,2 

4540 GOTO4O30 

7000 C0L0R4 , 1 6 , 6 : COLORO , 2 

7010 PRINT"{CLR}":CHAR,13,5,"{BROWN}3D C 
OLOR MAZE" 

7020 CHAR, 7, 8," {D.BLUE}VUOI LE ISTRUZION 

1 (S/N)?" 

7030 GETZ$:IFZ$»"N"THEN7500 
7040 IFZ$O"S"THEN7020 

7050 PRINT" {HOME} {8 CUR.GIU}SEI STATO IM 
PRIGIONATO IN UN LABIRINTO E" 

7060 PRINT "DEVI USCIRNE PRIMA CHE IL TEM 
PO A D I S P 0 " 

7070 PRINT "SIZIONE FINISCA" 

7080 PRINT" PER MUOVERE USA I CURSORI (DE 
STRO - ALTO" 

7090 P R I N T " E SINISTRO) CrfE INDICANO LE R 


ELATIVE DI-'" 

7100 PRINT "REZIONI" 

7110 PRINT n {CUR.GIU} {6 CUR.DESHRVS ON}P 
REMI UN TASTO PER CONTINUARE»' 

7120 GETZ$ : IFZ$*""THEN71 20 
7500 PRINT" {CLR} {BLACK} {2 CUR.GIU}{11 CU 
R . DES } LIVELLO DI GIOCO?" 

7510 CHAR, 1.2,5 ,"(P)RINCI PI ANTE" :CHAR,1 2, 
7," (E)SPERTO" 

7520 GETZ$ : IFZ$*"E"THENLV»1 :G0T07550 
7530 IFZ$O"P"THEN7520 
75 4 0 LV-0 

7550 CHAR f 2,10," {REDjATTENDI MENTRE PREP 
ARO IL LABIRINTO{BLACK}" 

8000 Z $ - " 2 1 1 201 1 0" :F0RJJ-1T04 
8010 P(JJ, 1 )-VAL(MID$(Z$, ( J J * 2 — 1 ) , 1 ) )-1 
80 20 P(JJ,2)-VAL(MID$(Z$f(<JJ«2') ,1 ))-1 
8030 P(JJ+4,1)-P(JJ,l):P(JJ+4,2)-P(JJ,2) 
80 4 0 NEXT:Z$-"ABBBBBBBBBBBBBBBBBBBBBBBBB 
A" 

80 50 FORJJ-'I T027 :A$ ( J J ) - " AAAAAA A AA AAAAAA 
AAAAAAAAAAAA" : NEXT 
8060 F0RJJ-2T022STEP4 : A$ ( JJ )-Z$ 

8070 MID$(A$(JJ+1) f 2,3)- n B":MID$(A$(JJ+2 
) » 2 , 3 ) * " B " 

80 80 MID$(A$(JJ + 3) ,2, 3)-”B" :MID$(A$( JJ+1 
) , 26,27)- n B" 

8090 MID$ ( A$ ( J J+2 ) , 26 , 27 ) «"B" : MID$ ( A$ ( JJ 
+3) ,26,27)-"B" 

8100 F0RKK-2T022STEP4 : HH- INT ( RN D ( 0 ) * 1 .6) 

: 0NHHG0T081 10,8120 
8110 MID$(A$(JJ+1 ) , KK , KK+ 1 )-"B" 

8120 MID$(A$(JJ+3) ,KK, KK+1 )-"B" 

8130 I FRND (0 )>. 5AN D ( ASC (MID$(A$( JJ+1 ) , KK 
) )-660RASC(MID$(A$( JJ+3) ,KK) )-66)TH 
EN8500 

8140 NEXTKK,JJ:A$(26)-Z$ 

8150 PI -14+4*1 NT (RND(0)*3):Q1 -6+4*1 NT (RN 
D ( 0 ) * 5 ) 

8160 MID$(A$(P1+1 ),Q1 ,Q1 + 1 )-"B":MID$(A$( 
PI +2) ,Q1 ,Q1 + 1 ) « " A " 

8170 MID$(A$(P1+3) ,Q1 • Q 1 +-1 ) - " A " : MI D$ ( A$ ( 
Pipi ) , Q 1 , Q 1 + 1 ) « " B 

8180 MID$(A$(P1-2),Q1,Q1+1)-"B":MID$(A$( 
PI p3 ) » Q 1 ,Q1 + 1 )«"B" 

8190 MID$(A$(P1~5) ,Q1 , Q 1 + 1 ) - " B " : M I D $ ('A $ ( 
P 1 ) , Q 1 - 1 ,Q1 )»"A" 

8200 MID$(A$(P1),Q1+1 ,Q1+2)-"A":MID$(A$( 
P1-6) ,Q1 ,Q1+1)-"B" 

8210 MID$(A$(P1p7),Q1 , Q 1 + 1 )-"B":P1-P1+2 
82 20 U-2 + 24 *INt’(RND( 0)*2) : V-2 : D-5p (U-26 ) 
8230* Z-4+4*INT(RND(0)*6) :F0RJJ-1TÒ3 
8240 MID$(A$(6+4*INT(RND(0)*5) ) , Z , Z+ 1 )«" 
A" : NEXT 

8250 TI$- "000000" 

8260 GQT0100 

8500 MI D$ ( A$ ( J J + 2 ) ,KK,KK+1 )-"B":G0T08l 40 
9000 HH-ASC (MID$ (A$ (X + LX) , Y + LY ) ) — 6 4 : RETU 
RN 

9100 HH-ASC (MI D$ ( A$ ( X-LX ) ,Y-LY))-64 : RETU 
RN 
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computer 


A. Borra, M.C. Gii 'zi 

LAVORIAMO CON 
IL COMMODORE 16 

Lavorare con il C16 è un 
piacere, fallo anche tu, 
ti divertirai. 
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□ CEDOLA DI COMMISSIONE LIBRA 

RIA 


VOGLIATE SPEDIRMI 


A.P. Stephenson 

IL COMPUTER: 

PHobby e il lavoro 

Il computer come compagne 
ideale, nella propria 
professione e nell’hobby. 


JACKSON 

DIVISIONE LIBRI 


Scopri il tuo 
home 


Cod. CC244 Pag. 196 L. 20.000 
Con cassetta 


G. Marano 

30 PROGRAMMI 
PER MSX 


codice 


Prezzo unitario 


Prezzo totale 


Cod. CI 187 Pag. 192 L. 12.000 

R. Bandii. L. Pazzucconi, 

F. Racdìi 

GUIDA AL COMMODORE 
PLUS 4 


Inserite soltanto la cassetta 
e... una valanga 
di programmi uscirà 
dal vostro MSX. 

Cod. CZÌ81 Pag. 96 L. 20.000 
Con cassetta 


A. Cananeo, P. Todorov idi 

COMPUTER HARDWARE 

Il primo vero libro di 
realizzazioni pratiche 
dedicate ai più diffusi home 
computer: C64, Spectrum, 
VIC20, C16 e MSX. 

Cod. CH182 Pag. 152 L. 13.000 


Totale 

□ Pagherò contrassegno al postino il prezzo indicato più L 3.000 per contributo 
fisso spese di spedizione. 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su eie n 11666203 a voi intestato 
□ Allego fotocopia di versamento 

n° su vaglia postale a voi intestato 


Nome 


Cognome 

Via 

Cap 

Citta 

Prov 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l'emissione di fattura 

111111111111 

Partita I.V.A. . . 

ORDINE 

MINIMO 

L 50.000 


Un manuale completo per il 
Plus 4 ripercorrendo C16 per 
te e C 16 sempre di più. 

Cod. CC256 Pag.470 L. 30.000 


Jackson 
la biblioteca 
che fa 
testo 


